Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#7

Re: Wie kann ich durchs Öffnen Mit Daten ins Memo laden...

  Alt 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;
  Mit Zitat antworten Zitat