Problem nach verwenden der inputbox

[DeddyH]

Erstell mal ein neues Projekt, pack da eine ListBox und einen Button auf die Form und schau mal, ob dieser Code funktioniert (im OnClick des Buttons):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 1 to 12 do
    ListBox1.Items.Add(InputBox(inttostr(i) + '.Aufruf','Eingabe',''));
end;

[kruemelmonster92]

ja ne listbox hattn wa auch noch nich, naja un wir müssn die inputbox verwendn

[DeddyH]

Das hatte ja mit der Aufgabe nichts zu tun, ich wollte nur ermitteln, ob sich Dein Delphi evtl. anders verhält als meins. Deshalb solltest Du ja auch ein neues Projekt erstellen.

[kruemelmonster92]

ah ok das muss dummen leuten ja gesagt werden^^ na egal, ja ne da gibts keine probleme weiter

[DeddyH]

Komisch. Wie rufst Du die Prozedur BerechnZins3 denn auf?

[Die Muhkuh]

Ich frage mich gerade, wo das Problem ist, eine Komponente zu nutzen, die man noch nicht hatte? Delphi stellt diese Komponenten bereit und wenn man sie geschickt einsetzt, sollte das doch kein Problem darstellen. Ist ja "Dein Problem", wenn Du Dir mehr arbeit machst und erst noch schauen musst, wie die Komponente funktioniert.

[kruemelmonster92]

procedure TForm1.Button1Click(Sender: TObject);
var Guthaben, Zinssatz, Zinsen, neues_Guthaben: real; {globale Variablen}
procedure BerechnZins3;
var M : integer;
Nr, monatlicher_Betrag : String;
neuer_Betrag : real;
begin
Zinsen:= 0;
FOR M := 1 to 12 do ;
begin
Nr:= InttoStr(M);
monatlicher_Betrag:= Inputbox ('Eingabe monatlicher Betrag', Nr+'.monatlicher Betrag','');
neuer_Betrag:= StrtoFloatDef(monatlicher_Betrag, 0);
neues_Guthaben:= Guthaben + neuer_Betrag;
Zinsen:= Zinsen + neues_Guthaben*Zinssatz/100;
end;
neues_Guthaben:= Guthaben + Zinsen;
end;

procedure AusgabeZinsen;
begin
Label5.Caption:='neues Guthaben: ' + FloattoStr(neues_Guthaben) + ' €';
Label8.Caption:='Zinsen: ' + FloattoStr(Zinsen) + ' €';
end;

begin
Guthaben:= StrtoFloat(Edit1.Text);
Zinssatz:= StrtoFloat(Edit2.Text);
BerechnZins3;
AusgabeZinsen;

end;

end.

ich hab hier mal das ganze...naja keine ahnung so hatn was halt gelernt

[kruemelmonster92]

@ Die Muhkuh...ka frag meinen lehrer, als wir html hattn hat ich deshalb ne 6 gekriegt weil ic das dann angeblich nich inner schule gemacht hatte un deshalb bin ich da seit dem sehr vorsichtig

[DeddyH]

 FOR M := 1 to 12 do ; //dieses Semikolon muss weg, da Leeranweisung [edit] Benutze bitte künftig die Delphi-Tags, in einem formatierten Quelltext hätte man das ganz schnell gesehen. [/edit]

[kruemelmonster92]

ok vielen, vielen dank jetz funktionierts