Ääähhh jaaa...
)
Okay. ich schreib mal was mein prog bis her macht und dann weiß ich nicht mehr weiter wie ich es schreiben soll...
Delphi-Quellcode:
var
sl: TStringList;
zeilennr: integer;
DateiName, S: String;
F: TextFile;
begin
OpenDialog1.Execute; // Das Ergebnis steht in FileName
// ShowMessage(OpenDialog1.FileName);
DateiName := OpenDialog1.FileName; //Der Pfad wird in die Datei gestellt
// ShowMessage(DateiName);
sl:=TStringList.Create; //Objekt erzeugen
try
sl.LoadFromFile(DateiName); //Datei in Stringliste laden
AssignFile(F, OpenDialog1.FileName);
Reset(F);
Readln(F, S);
Edit1.Text := S;
finally
sl.free; //Objekt wieder freigeben
end;
Sicher fehlen hier noch schleifen das ist klar. Kannst du damit was anfangen?