noob fragen (if schleife/neue procedur)

[Flogo]

Außerhalb von der if Abfrage fehlt das begin von deiner procedure

[Gregor]

hab alle fehler beseitigt :)

[Darty]

dann geht wohl jetzt alles ?

[Gregor]

perfekter als perfekt :p

[Touchdown]

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

[Gregor]

ich habe noch ganz oben wegen der eigenen procedur gefragt? wie geht das?

[Luckie]

Neue Frage, neuer Thread.

Geschlossen.