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