Ak by mala mať taký tvar, ako pôvodná funkcia:
Kód:
procedure Delete ( var Source : string; StartChar : Integer; Count : Integer ) ;
tak nejako takto by to mohlo vyzerať:
Kód:
var
i: integer;
begin
for i:= (Count + StartString) to length(Source) do
Source[i-Count]:= Soruce[i]; // posunutie reťazca
for i:= (length(Source)-count+1) to length(Source) do
Source[i]:= ''; // vymazanie presahujúcich znakov
end;
To je celé.
