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

[SirThornberry]

Zitat:

Zitat von 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

komiches Argmument, schließlich kann man auch den String durch eine Variable ersetzen. Und wie schon erwähnt macht es keinen Sinn erst die Zahl in einen String zu wandeln außer man steht auf Performanceverlust.
Wenn ich Apfel und Birne vergleiche mach ich daraus doch auch nicht vorher saft nur weil dann beide die gleiche Form haben.

[hanselmansel]

Hatte auch das Problem einen Wert des Editfeldes mit etwas vergleichen zu müssen. Nur handelte es sich bei mir um das Modulo zweier Zahlen, und ich habe nicht mit Farben gearbeitet, weshalb sich oben genannte Lösung anbat.
Da der Wert nur ein, zweimal während der gesamten Benutzung des Programms benutzt wurde, habe ich mir auch keine großen Sorgen um Performance gemacht. Auf jeden Fall hast du aber Recht, dass es im Fall von Vader auf deine Art und Weise einfach besser programmiert ist.

Aber das wird hier so langsam aber sicher OOT...