Thema: Delphi kleine abfrage

Einzelnen Beitrag anzeigen

Benutzerbild von gmarts
gmarts

Registriert seit: 4. Apr 2004
Ort: Templin
290 Beiträge
 
Delphi 6 Enterprise
 
#2

Re: kleine abfrage

  Alt 21. Dez 2004, 23:50
Zitat von raccoon:
hallo, also ich wollte folgendes realisieren, und zwar das wenn ein textfeld leer ist er eine schaltfläche nicht zeigen soll.

so sieht das bisher aus nur der kommt mit den typen nicht klar

Delphi-Quellcode:
if (not (edit1.text := '')) then
begin
button1.Visible:= true;
end;
wie muss das aussehen??
So:

Delphi-Quellcode:
if not (edit1.text= '') then
button1.Visible:= true
else
button1.Visible:= false;
bzw.

Delphi-Quellcode:
if edit1.text <> 'then
button1.Visible:= true
else
button1.Visible:= false;
bzw.

Delphi-Quellcode:
if edit1.text = 'then
button1.Visible:= false
else
button1.Visible:= true;
bzw.

Delphi-Quellcode:
if not (edit1.text <> '') then
button1.Visible:= false
else
button1.Visible:= true;

Merke:
:= ist eine Zuweisung
= ist ein Vergleich

begin und end sind nicht falsch, doch in dem Beispiel fördern sie nicht die Übersichtlichkeit.

MfG GM
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Click;
end;
  Mit Zitat antworten Zitat