hallo,

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

markieren

Delphi-Quellcode:

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

markieren

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

StrtoInt

Zitat von jfheins:

StrtoInt

Hä?

Folgendes:

markieren

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

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 .

Hi!

Zitat von malo:

Zitat von jfheins:

StrtoInt

Hä?

Folgendes:

markieren

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:

markieren

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

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:

markieren

Delphi-Quellcode:

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

oder so:

markieren

Delphi-Quellcode:

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

herzlichen dank an alle !

mfg vader

Zitat von fkerber:

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

markieren

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

Hi!

Zitat von malo:

Zitat von fkerber:

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

markieren

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

Die Lösung

markieren

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