Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
Re: FileOpen
6. Nov 2009, 11:21
Delphi-Quellcode:
var
sl:tstringlist;
begin
sl:=tstringlist.create;
sl.LoadfromFile(Formwasauchimmer.edit1.Text);
...... { Hier eintragen was auch immer Du machen willst}
sl.free;
end;
oder noch einfacher:
Delphi-Quellcode:
procedure xxxxxbutton1click
begin
Memo1.Lines.loadfromfile(Edit1.text);
end;
Ist es das was Du suchst?
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|