Registriert seit: 21. Aug 2003
7.332 Beiträge
Delphi 2009 Professional
|
Re: Wie kann ich durchs Öffnen Mit Daten ins Memo laden...
21. Mär 2004, 12:31
Den Code zum öffnen kann ich dir geben:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
I : Integer;
begin
if ParamCount > 0 then
begin
if ParamStr(1)[1] <> '\' then // Dateiname übergeben --> öffnen
begin
for i := 1 to ParamCount do
begin
Application.CreateForm(TForm2, Form2);
<Hier kommt dein Richedit hin>.Lines.LoadFromFile(ParamStr(I));
end;
end;
end;
end;
|