FindComponent oder was ?!?! (sry nix besseres eingefallen)

[oki]

Zitat von J Kadison:

Hallo Leutle!
Ich hätte da gerne mal wieder ein Problem ^^

Ich nicht, hab genug davon
sorry, mußte sein.

Jetzt zum Thema. Du kannst deiner Variablen Text natürlich genauso den Inhalt deines Memos zuweisen.
  Text := Memo1.Text; Also, nach der Prüfung, ob es eine Datei ist liest du diese und übergibst den Inhalt an Text, wenn nicht, läßt du das Dateihandling weg und weist den Inhalt wie in meinem Beispiel zu.

Delphi-Quellcode:

//Datei=True
  If Datei = True then begin
    sl:=TStringList.Create; //Objekt erzeugen
    if FileExists(Quelle) then
      sl.LoadFromFile(Quelle);
    text:= sl.gettext; //Datei öffnen
    sl.free; //Objekt wieder freigeben
  end Else begin
    text := Memo1.Text;
  end;

Gruß oki