strings aus txt file lesen

[Thanatos81]

Ne Alternative wäre auch das hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var myList  : TStringList;
    myFile  : Textfile;
    temp     : String;
    position : Integer;
begin
  if OpenDialog1.Execute then
    begin
      try
        myList := TStringList.Create;
        AssignFile(myFile,OpenDialog1.FileName);
        reset(myFile);
        while not(EoF(myFile)) do
          begin
            readLn(myFile,temp);
            position := Pos(':',temp);
            if (position > 0)
              then myList.Add(trim(Copy(temp,position+1,length(temp))));
          end;
        //Hier einfügen, was auch immer du mit den Daten machen möchtest
      finally
        closeFile(myFile);        
        FreeAndNil(myList);
      end;
    end;
end;

Das ganze ist nicht statisch, wenn du also mal was am Layout der TextFile änderst, brauchste das Prog nicht ändern. Außerdem brauchste dann auch kein fixed-size Array, was du bei Änderungen anpassen müsstest, bzw. sparst dir die Arbeit mit SetLength, Length, Low, High etc.

Aber wenn du auf ne INI umsteigen kannst, würde ich dir das auch empfehlen, ist einfach schöner.

//begin edit
Nur mal so nebenbei, was hat denn das mit Multimedia zu tun
//end edit