Variablenfehler oder? ich weiß nichts mit den Fehlermeldungen anzufangen

[ItsMe1]

Hallo Leute,

Ich find den Fehler bei der Zeile mit dem then nicht und mit den anderen Fehlern kann ich auch nichts anfangen

Ich muss auch dazusagen das ich schon eine weile nichts mehr mit Delphi gemacht hab ....

Delphi-Quellcode:

  private
    w1 , w2 , w3 , wm , ww , h1 , h2, h3 , hm , hw , s1 , s2 , s3 ,sm , sw : real;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 wm:= 8.95;
 ww:= 7.52;
 hm:= 2.45;
 hw:= 2.09;
 sm:= 9.58;
 sw:= 10.49;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if form1.ComboBox1 = 0 then
  begin
    w1:= floattostr((strtofloat(wm)/1000)*strtofloat(Edit1.Text));
      label16.Caption:= w1;
  end;
end;

end.

wäre echt super wenn ihr mir helfen würdet

[DeddyH]

Eine ComboBox soll 0 sein? Oder meintest Du eher den ItemIndex?

[ItsMe1]

ja wie muss man das schreiben hab eigentlich auch noch nicht mit einer ComboBox gearbeitet

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ComboBox1.ItemIndex = 0 then
  begin
    w1:= floattostr((strtofloat(wm)/1000)*strtofloat(Edit1.Text));
    label16.Caption:= w1;
  end;
end;

[ItsMe1]

ok gut danke

[ItsMe1]

vielen Dank für diese schnelle Antwort damit haben sich auch alle anderen Fragen von selbst geklärt
Vielen vielen Dank

[p80286]

Entschuldigt aber hier sollte es auch rumsen:

Delphi-Quellcode:

private
    w1 , w2 , w3 , wm , ww , h1 , h2, h3 , hm , hw , s1 , s2 , s3 ,sm , sw : real;
    { Private-Deklarationen }
 ....
  if form1.ComboBox1.itemindex = 0 then  //oder was auch immer
  begin
    w1:= floattostr((strtofloat(wm)/1000)*strtofloat(Edit1.Text)); {da w1 als real definiert ist klappt das nicht}
      label16.Caption:= w1; {hier ebenso String oder Real ,daß ist hier die Frage}
  end;
end;

end.

Gruß
K-H

[Perlsau]

Zitat von ItsMe1:

Hallo Leute,

Ich find den Fehler bei der Zeile mit dem then nicht und mit den anderen Fehlern kann ich auch nichts anfangen
Ich muss auch dazusagen das ich schon eine weile nichts mehr mit Delphi gemacht hab ....

Grundlagen-Tutorials, sag ich da nur

[ItsMe1]

Ja das hatte es auch p80286 aber

[ItsMe1]

Zitat:

auch alle anderen Fragen von selbst geklärt

Sorry wegen der unvollständigen Antwort