Text-Dateien in Delphi7

[luigied]

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