.txt Datei einlesen (CommaSeperated)

[DoctorCox]

Morgen ,
ich habe gestern Abend mal angefangen, mir en kleines, einfaches Programm zum ordnen meiner Filme zu schreiben, da alles fertige, was ich gefunden habe mir nie wirklich zugesagt hat. Zur besseren Vorstellung mal ein Bild: s. Anhang "prog"

Es gibt also ne Klasse Film, mit den zu sehenden Attributen und in der create-Methode(der Klasse Film) werden die Daten halt abgefragt und dann in die Memos geschrieben-->primitiv, aber läuft... Dann gibt halt noch ne Procedur savelist, die mir alle Filme aus den Memos raus in ne .txt Datei schreibt und die einzelnen Werte durch Kommata und den Begin einer neuen Zeile durch nen Punkt trennt--> läuft auch. In der .txt Datei siehts also bspw. so aus: " 1,Babylon AD,Action,1:45,2006,Jason Statham. "

ICh hänge jetzt da fest, wo ich bei Programmstart(formcreate) diese .txt Datei eben wieder einlesen will. Bin bis jetzt soweit:
---------------------------------------------------------
procedure TForm1.readlist(FileName:string; var s:string);
VAR i,x:integer;
VAR t:TEXTfile;
VAR helpstring:string;
begin
assignfile(t, FileName);
reset(t);
s:= '';

while not eof (t) do begin


end;
---------------------------------------------------------
Mir fehlt also im prinzip der Teil, der das Dokument durchläuft und dann die Worte nach Komma getrennt bspw. in ne VAriable schreibt, die ich dann in die Memos einfügen kann.
Ich hoffe ihr könnt mir da helfen

Gruß DoctorCox

[mkinzler]

Am Einfachsten mit einer StringListe (Delimiter, StrictDelimiter, DelimitedText)

[RWarnecke]

Eine andere Variante wäre die String-Funktionen aus PHP nutzen : Einige Array-Funktionen wie in PHP nutzen

[DoctorCox]

Das mit der STringlist und dem Delimiter hatte ich auch schonmal gelesen, aber nicht verstande... Gibt's da vielleicht irgendwie ne Anleitung für?

[DeddyH]

Code:

Stringlist.Delimiter: ';' //Trennzeichen
Stringlist.DelimitedText: '1;2;3;42'

--> Inhalt der Liste:
1
2
3
42

[Bummi]

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
 slAll, slRow:TStringList;
 i,c:Integer;
 s:String;
begin
    slAll := TStringList.Create;
    slRow := TStringList.Create;
    slRow.Delimiter := ',';
    slRow.StrictDelimiter := true;
    try
      slAll.LoadFromFile('C:\temp\lst.txt');
      for I := 0 to slAll.Count - 1 do
          begin
            slRow.DelimitedText := slAll[i];
            s := 'Zeile: ' + IntToStr(i) + ' > ';// nur für Demo
            for c := 0 to slRow.Count - 1 do
                begin
                  s := s + IntToStr(c) +' Spalte : ' + slRow[c]+ ', ';
                end;
             s := Copy(s,1,length(s)-2);
             Memo1.Lines.Add(s);
          end;
    finally
      slAll.Free;
      slRow.Free;
    end;
end;