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