Servus,
Zitat:
Es gibt doch sicher eine einfachere Möglichkeit, einen String zu zerlegen und deren Einzelteile in ein Memo-Feld auszugeben, oder?
Du kannst dir die explode-Funktion doch auch selbst schreiben.
So zum Beispiel:
Delphi-Quellcode:
///Parameter: zu zerlegender string
function Werte(Szeile: String): Array of string;
var i, iCur_val: integer; Scur_val, edit: string;
begin
SetLength(Werte, 1); // mind. ein Wert steht in der Zeile
i:=0; // 1. Zeichen im String
iCur_val:=0; // 1. Wert, der in der Zeile steht
repeat // wiederhohle
SetLength(Werte, Length(Werte)+1);
Scur_val:=''; // der Wert ist leer
repeat
sCur_val:=Scur_val + Szeile[i]; // aktuelles Zeichen zum Wert hinzufügen
inc(i); // an nächste Stelle springen
until Szeile[i] =','; // bis ein Komma kommt
Werte[iCur-Val]:= Scur-Val;
until Szeile[i+1] = ''; // bis die Zeile zu Ende ist
end;
Die Funktion musst du dann für jede Zeile aufrufen.
PS: Code ist nicht getestet