fehler beim abfage ob memo leer ist

[Wadim]

hi,

da hab ich weidermal ein kleines problem, habe diesen code:

Delphi-Quellcode:

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if memo1.Lines <>''
  then begin
  memo1.visible := true;
  timer3.Enabled := true;

leider zeigt er mir eine fehlermeldung an die heißt das es inkompatible typen sind: string und tstring

kann mir einer helfen

danke

[horst]

if memo1.text <> '' grüsse horst

[Christian Seehase]

Moin Wadim,

entweder Du prüfst

Memo1.Lines.Text <> '' oder

Memo1.Lines.Count <> 0 Ich würde letzteres bevorzugen, da die Eigenschaft Text immer erst aus den Lines zusammengesetzt wird (beim Lesen), was bei einem vollen Memo länger dauern könnte.

Lines ist vom Typ TStrings abgeleitet, und hat somit die Eigenschaft Text, die den gesamten Inhalt aller Lines (incl. der Zeilentrennzeichen #13#10 enthält)

[Wadim]

danke- funktioiert jetzt

mfg wadim