Memo.Lines.Count - Anomalie ?

[wendelin]

Hallo,
mir ist bei der Programmierung  Form4 := TForm4.Create(SELF); mit einer Memo-Komp.
folgendes aufgefallen: wenn ich nach der Erstellung des Formulars mit der Memo-Komp. (diese ist voll-
ständig leer - KEIN text !) mit SHOWMESSAGE(IntTOStr(Memo.Lines.Count)) die
Zeilenanzahl ausgebe erscheint immer '1' ??
Wenn ich über  Memo.Clear den eigentlich schon leeren Text lösche erscheint endlich
die '0' !
Ich benötige die Memo-Komp. um SQL-Anweisungen via Delphi an Interbase zu schicken, zu editieren
und zu speichern und wenn ich versehentlich den entsprechenden Button drücke, kommt logischerweise die Fehlermeldung "EMPTY SQL-Statement". Vielleicht weiß jemand die Antwort.

Wendelin

[arnof]

leer wird ein Memofeld nur mit

Memox.Lines.clear


Sonst ist eine Leerzeile auch ein Inhalt

[Uwe Raabe]

Zitat von wendelin:

(diese ist voll-
ständig leer - KEIN text !)

Offensichtlich nicht! Zumindest eine leere Zeile scheint dort enthalten zu sein. Wie stellst du denn fest, ob das Memo leer ist?

[himitsu]

Trim

[arnof]

Zitat von himitsu:

Trim

Trim ist auch eine Leerzeile

Höchstens sowas:

Memo1.lines.Text:=Trim(Memo1.lines.Text);

wenn da aber ein Umbruch drin ist, dann bleibt der Count>0

Also es hilft nur

memo1.lines.clear;

[wendelin]

OK,
vielen Dank,
Dann muß ich allso bevor ich Text ins Memo eingebe dieses immer mit Memo.Clear löschen.

Danke
Wendelin

[p80286]

Oder du verwendest
Memo1.Lines.Text:=''; oder
Memo1.Lines.Text:='Mein Text ist.....'; Gruß
K-H

[himitsu]

Zitat von arnof:

Trim ist auch eine Leerzeile

Nicht, wenn man das getrimmte an die SQL-Komponente übergibt.

Zeilenumbrüche werden auch entfernt.
Trim entfernt alle ASCII-Steuerzeichen und das Leerzeichen (#0..' ' )

[arnof]

Zitat von wendelin:

OK,
vielen Dank,
Dann muß ich allso bevor ich Text ins Memo eingebe dieses immer mit Memo.Clear löschen.

Danke
Wendelin

memo.Lines.Clear

Das geht auf die TStringlist des Memos, memo.Clear ist eine Windowsfunktion und kann sich je mach Komponentenart auch anders verhalten

Zitat:

Trim entfernt alle ASCII-Steuerzeichen und das Leerzeichen (#0..' ' )

Trim entfernt KEINE Umbrüche die ein Memo so hat!

[DeddyH]

Zitat von arnof:

memo.Lines.Clear

Das geht auf die TStringlist des Memos, memo.Clear ist eine Windowsfunktion und kann sich je mach Komponentenart auch anders verhalten

Ein Blick in die StdCtrls von XE:

Zitat:

Delphi-Quellcode:

procedure TMemoStrings.Clear;
begin
  Memo.Clear;
end;

Die Liste ruft intern also Clear des Memos auf, da kann man das auch selbst tun.

Zitat von arnof:

Trim entfernt KEINE Umbrüche die ein Memo so hat!

Gibt es auch spezielle Memo-Umbrüche? Ich dachte immer, das sei auch nur CR, LF oder beides.