An deiner Quelltexformatierung musst du aber noch arbeiten.
Richtiger Code sieht in etwa so aus, dient vor allem der Lesbarkeit für dich und andere:
Delphi-Quellcode:
procedure TForm1.Rechne(Laenge, Winkel, Breite: Extended;
x: Boolean; Anzahl : Integer; Liste:TStrings);
var
Wert : Extended;
i : Integer;
function GetValue( Length, x : Extended):Extended;
begin
Winkel := degtorad(Winkel);
result := Breite * tan(Winkel);
end;
begin
Wert := GetValue(Laenge,Winkel);
liste.Clear;
Liste.Add('1. Bahn: ' + (FloattoStrf(Laenge,ffNumber,3,2)));
for i := 0 to Anzahl -2 do
begin
if x then
laenge := laenge - wert
else
laenge := laenge + wert;
Liste.Add((Inttostr(i+2))+'. Bahn: ' + (FloattoStrf(Laenge,ffnumber,3,2)));
end;
end;
Sinn und Zweck des Codes sind ohne jede Bedeutung aber getrachtet es als mein geistiges Eigentum
