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 .... :oops:

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 :-D
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:

Zitat von ItsMe1 (Beitrag 1213580)

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 .... :oops:

Grundlagen-Tutorials, sag ich da nur :shock:

[ItsMe1]

Ja das hatte es auch p80286 aber

[ItsMe1]

Zitat:

auch alle anderen Fragen von selbst geklärt

Sorry wegen der unvollständigen Antwort

[Sir Rufo]

Zitat:

Zitat von ItsMe1 (Beitrag 1213621)

Zitat:

auch alle anderen Fragen von selbst geklärt

Sorry wegen der unvollständigen Antwort

Du kannst deine Beiträge 24h lang bearbeiten ;)

[Bummi]

Zitat:

Du kannst deine Beiträge 24h lang bearbeiten

ganz manchmal würde ich mir mehr als 24 Stunden wünschen ...

[mkinzler]

Zitat:

Zitat von Bummi (Beitrag 1213631)

Zitat:

Du kannst deine Beiträge 24h lang bearbeiten

ganz manchmal würde ich mir mehr als 24 Stunden wünschen ...

24 Stunden sind eigentlich ausreichend. Es wäre aber schön, wenn diese denn eingehalten würden und nicht ständig gepusht würde.
Eine nachträgliche Änderung ( danach) wäre imho u.U. nur bei der ursprünglichen Frage sinnvoll und hier kann man ja ein Teammitglied bitten, diese durchzuführen.

[ItsMe1]

Ok gut das mit dem bearbeiten weiß ich jetzt :-D


ich hab noch eine Frage und zwar wie ist das wenn ich 3 Variablen vergleichen will und wenn die eine Zahl jetzt zum Beispiel größer als die beden anderen ist dann soll in einem Label der "Platz" kommen, in dem Fall also 1 wie macht man das am besten (geht das auch mit case oder eher mit if)???
Danke schon mal :-D

[mkinzler]

-

Delphi-Quellcode:

if (a > b) and ( a> c) then ...

-

Delphi-Quellcode:

if a > max( b,c) then ...

- Sortierung
...