Abfrage von Memos

[Wargrave]

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

wollte z.b

Delphi-Quellcode:

if Memo1.text=''

oder

Delphi-Quellcode:

if 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:

Delphi-Quellcode:

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

Delphi-Quellcode:

if Memo1.text=''

nich .
Ein Memo hat ja garnich die eigenschaft "text".
Hilfffeee

[BenjaminH]

Doch, Memo hat die Eigenschaft Text

[mr47]

Zitat:

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

Delphi-Quellcode:

if Memo1.text=''

nich .
Ein Memo hat ja garnich die eigenschaft "text".
Hilfffeee

Hat es schon! Es steht nur nicht im Objekt Inspektor

mfg :hi:

[Sharky]

Zitat:

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:

Zitat von Wargrave

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

Delphi-Quellcode:

Button1.Visible := not ((Memo1.Text = '') and (Memo2.Text = ''));

Das z.B. im OnChange des Memos (der memos) aufrufen.


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

[Binärbaum]

Zitat:

Zitat von Wargrave

Wie kann ich eine if abfrage von memos machen.

wollte z.b ...

Delphi-Quellcode:

if Memo1.lines=0

Wenn man es so macht

Delphi-Quellcode:

if Memo1.Lines.Count=0 then ...

dann geht es.

MfG
Binärbaum