Klappt leider nicht ganz so wie erhofft
Ich hab hier mal meinen Code für die OpenDialog procedure gepostet:
Delphi-Quellcode:
procedure TForm1.ffnen1Click(Sender: TObject);
var
tf: TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(tf, OpenDialog1.FileName);
ReWrite(tf);
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;
Vielleicht kannste damit was anfangen
Muss ich vielleicht das ReWrite(tf) aus dem Code nehmen???
Guido L.
The nice thing about Windows is - It does not just crash, it displays a dialog box and lets you press 'OK' first.
Guten Rutsch und Start ins neue Jahr 2005
