Abfrage von Memos

[Wargrave]

Also neuer Thread..
Wie kann ich eine if abfrage von memos machen.

wollte z.b if Memo1.text='' oderif Memo1.lines=0 Habe keien Ahnung wie ich das machen soll.
Könnte man das savetofile auch bei editfeldern anwenden wäre das ja ncih das problem.
Mfg PAtrick

[BenjaminH]

Hallo,
mal sehen ob ich das verstehe, du willst eine Abfrage, was in dem Memo steht?
Ja, das funktioniert so:
If Memo1.Text='' Then

[Khabarakh]

Entweder du nimmst Memo1.Text, das gibt dir den ganzen Inhalt inklusive Zeilenumbrüchen (CR und LF) zurück, oder Memo1.Lines.Strings[i].
Du könntest aber auch den Inhalt des Edit-Feldes schnell in eine TStringlist laden, das wäre wohl professioneller.

[Sharky]

Hai Wargrave,

was genau möchtest Du den abfragen?

[Wargrave]

Ich will abfragen was in dem memo steht.
Also ein button soll visible:=false werden wenn im Memo1 und Memo2 nix drinsteht.
Leider geht der Befehl if Memo1.text='' nich .
Ein Memo hat ja garnich die eigenschaft "text".
Hilfffeee

[BenjaminH]

Doch, Memo hat die Eigenschaft Text

[mr47]

Zitat von Wargrave:

Ich will abfragen was in dem memo steht.
Also ein button soll visible:=false werden wenn im Memo1 und Memo2 nix drinsteht.
Leider geht der Befehl if Memo1.text='' nich .
Ein Memo hat ja garnich die eigenschaft "text".
Hilfffeee

Hat es schon! Es steht nur nicht im Objekt Inspektor

mfg

[Sharky]

Zitat von Wargrave:

...Also ein button soll visible:=false werden wenn im Memo1 und Memo2 nix drinsteht....

In diesem Fall würde ich das so machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.OnChange := AllMemoOnChange;
  Memo2.OnChange := AllMemoOnChange;
end;

procedure TForm1.AllMemoOnChange(Sender: TObject);
begin
  Button1.Visible := not ((Memo1.Text = '') AND (Memo2.Text =''));
end;

[Matze]

Zitat von Wargrave:

Also ein button soll visible:=false werden wenn im Memo1 und Memo2 nix drinsteht.

Button1.Visible := not ((Memo1.Text = '') and (Memo2.Text = '')); Das z.B. im OnChange des Memos (der memos) aufrufen.


Nachtrag: Da meint man ja fast, ich hätte das von Sharky abgetippt.
Es kam gar keine meldung, dass einer gepostet hat.

[Binärbaum]

Zitat von Wargrave:

Wie kann ich eine if abfrage von memos machen.

wollte z.b ...if Memo1.lines=0

Wenn man es so macht
if Memo1.Lines.Count=0 then ... dann geht es.

MfG
Binärbaum