string nach anzahl von zeichen zerteilen?!

[Sharky]

Hai,

ich würde mir eine kleine Funktion schreiben welche mit aCount zeichen aus einem Stringparameter zurückgibt und dann aCount Zeichen aus dem String entfernt.

In etwa also so:

Delphi-Quellcode:

function GetStringChars (var aString: string; aCount : integer) : string;
begin
  result := Copy (aString,1,aCount);
  Delete (aString,1,aCount);
end;

begin
  s := 'ein_string_mit_ganz_vielen_zeichen';
  s1 := GetStringChars (s,20);
  s2 := GetStringChars (s,20);
  s3 := GetStringChars (s,20);
end;

(Das ist jetzt mal nur so dahin getippt.