Editproblem !!

[Vader]

hallo,

will, wenn in einen edit eine bestimmte zahl steht die farbe der form wechseln

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text:=85 then form1.Color:=clblack;
end;

Delphi-Quellcode:

[Fehler] Unit1.pas(29): Inkompatible Typen: 'String' und 'Integer'
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

mfg vader

[jfheins]

StrtoInt ;)

[malo]

Zitat:

Zitat von jfheins

StrtoInt ;)

Hä?

Folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = '85' then form1.Color:=clblack;
end;

:= ist der Zuweisungsoperator, = der Vergleichsoperator in Delphi. Und Strings müssen mit ' ' gekennzeichnet werden ;)

[Khabarakh]

Lasst doch die globale Form-Variable weg, das kann nachher nur noch zu Problemen führen, Vorteile gibt es keine. Ganz zu schweigen von OOP :wink: .

[fkerber]

Hi!

Zitat:

Zitat von malo

Zitat:

Zitat von jfheins

StrtoInt ;)

Hä?

Folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = '85' then form1.Color:=clblack;
end;

:= ist der Zuweisungsoperator, = der Vergleichsoperator in Delphi. Und Strings müssen mit ' ' gekennzeichnet werden ;)

Ich glaube, für Vergleich von Zahlen, sollte man aber besser zahlen vergleichen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text) = 85 then form1.Color:=clblack;
end;

Das andere geht zwar, aber dieser Weg ist IMHO schöner.

Ciao Frederic

[100nF]

hi,

Zitat:

procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text) = 85 then form1.Color:=clblack;
end;

das würde ich nicht so machen. was, wenn keine zahl im edit steht?
ich würde es so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if edit1.Text = '85' then form1.Color:=clblack; 
end;

oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if edit1.Text = inttostr(85) then form1.Color:=clblack; 
end;

[Vader]

herzlichen dank an alle !

mfg vader

[malo]

Zitat:

Zitat von fkerber

Ich glaube, für Vergleich von Zahlen, sollte man aber besser zahlen vergleichen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text) = 85 then form1.Color:=clblack;
end;

Das andere geht zwar, aber dieser Weg ist IMHO schöner.

Wie kann eine zustäzliche, unnötige Typumformung schöner sein? Man kann doch direkt zwei Strings vergleichen, statt irgendwas umwandeln zu müssen ;)

[fkerber]

Hi!

Zitat:

Zitat von malo

Zitat:

Zitat von fkerber

Ich glaube, für Vergleich von Zahlen, sollte man aber besser zahlen vergleichen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text) = 85 then form1.Color:=clblack;
end;

Das andere geht zwar, aber dieser Weg ist IMHO schöner.

Wie kann eine zustäzliche, unnötige Typumformung schöner sein? Man kann doch direkt zwei Strings vergleichen, statt irgendwas umwandeln zu müssen ;)

Wie gesagt, es ist nur meine persönliche Meinung gewesen.
Es erhöht in meinen Augen die "Lesbarkeit". Es soll nunmal ein Zahlenvergleich stattfinden.

Ciao Frederic

[hanselmansel]

Die Lösung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if edit1.Text = inttostr(85) then form1.Color:=clblack; 
end;

dürfte wohl die umfassendste sein, da man dadurch die Zahl auch durch Variablen ersetzen kann, was - je nach Sinn - mehr Dynamik bringt...

MfG, hanselmansel