Hi Community =)
ich hab folgenden Source geschrieben :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
km : array [1..5] of string ;
index,summe : Integer ;
begin
for index := 1 to 5 do begin
if index = 1 then
km[1] := Edit1.Text;
if index = 2 then
km[2] := Edit1.Text ;
if index = 3 then
km[3] := Edit1.Text ;
if index = 4 then
km[4] := Edit1.Text ;
if index = 5 then
km[5] := Edit1.Text ;
summe := km[1]+km[2]+km[3]+km[4]+km[5] ;
end;
end;
end.
er funktioniert nicht das weiß ich (leider) aber ich denke mal das Prinzip was ich versuche zu machen kommt dadurch rüber... Was mache ich da falsch..
