hi,

wie ist es möglich einen String nach einer bestimmten Anzahl von Zeichen zu teilen?
Ich möchte beispielsweise einen String beliebiger Länge in 50-Zeichen-lange Strings zerteilen.

Also ein 140 Zeichen String in
s1 = 50 Zeichen lang
s2 = 50 Zeichen lang
s3 = 40 also der Rest

weiß einer wie man das macht?

mfg R.

markieren

Delphi-Quellcode:

s1:=copy(1,50,s);
s2:=copy(51,100,s);
s3:=copy(101,length(s),s);

Grüße
Klaus

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:

zusammenfalten · markieren

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.

wow das ging ja megaschnell!!!!!!

Danke jungs ihr habt mir weitergeholfen!

mfg
R.

Auch wenn das Problem schon gelöst scheint - die Funktion SysUtils.WrapText() ist manchmal ganz hilfreich...

Grüße vom marabu