Hallo erstmal,

ich bin neu hier und hab auch gleich mal eine Frage. Ich habe dazu leider nichts gefunden was ich verstanden hab. Zumindestens so das ich es umsetzen konnte.

Ich habe folgendes Problem:

Wenn ich auf eine Zahl (TImage On Klick) klicke öffnet sich ein Input feld was verlangt, dass man den Einsatz eingibt. Vorgeschlagen wird standard Mäßig 10.
Der werte sollte in dem Array (Datentyp: Real) gespeichert werden.

Code:

procedure TForm1.Image14Click(Sender: TObject);
begin
Einsatz[14] := strtofloat(inputbox('Einsatz', 'Bitte gebe deinen Einsatz an', '10'));
label21.Caption := '14';
end;



Mit diesem Array sollte dann wenn er abfrägt ob diese Zahl gesetzt und Gewürfelt wurde, weiter gerechnet werden.

// Zahlen auswerten
gewonnenANZ:= 0;
for i := 1 to 36 do begin
if zahlenLBL[i].Caption = label1.caption then begin

verlust := strtoint(label6.caption);
verlust := verlust+(einsatz[i]*36);

end else if zahlenLBL[i].caption = '0' then begin


verlust := strtoint(label6.caption);
verlust := verlust-einsatz[i];

end;

label6.caption := inttostr(verlust);
end;

Wenn ich das nun Compiliere kommt das bei verlust := verlust+(einsatz[i]*36); und bei verlust := verlust-einsatz[i]; Array - Typ erforderlich sei. Ich habe es mit Integer und Real versucht, gleiches ergebniss.

Kann mir hier jemand helfen?!

Hallo,

Hab den Fehler schon raus gefunden. Hatte die Variable zweimal gleich bezeichnet.

Grüße Yio!