Einzelnen Beitrag anzeigen

gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#23

Re: länge zweier integer werte vergleichen

  Alt 18. Apr 2009, 20:54
mein quelltext

fehlersuche xD mit breakpoints komm ich auf die zeile mit "%.2d"

aber hier mein ganzer code

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Vza,Vzb, Vzz : real;
a,x,c,d,b : integer;
Va, Vb, VZ: integer;
MaxLen : Integer;
Vzza, vzzz : String;
FormatString : String;
begin
a:= StrToInt(Edit2.Text[1]);
x:= StrToInt(Edit2.Text[2]);
b:= StrToInt(Edit2.Text[3]);
c:= StrToInt(Edit2.Text[4]);
d:= StrToInt(Edit2.Text[5]);
Vza := a*sqr(x) + b*x + c;
Va := (Round(Vza));
x := x+d;
Vzb := a*sqr(x) + b*x + c;
Vb := (Round(Vzb));
x := x + (26*d);
Vzz := a*sqr(x) + b*x + c;
Vz := (Round(Vz));
   MaxLen := Max(Length(IntToStr(Va)), Length(IntToStr(Vz)));
   FormatString := Format('%%.%dd',[MaxLen]);
   Vzza := Format(FormatString, [Vzza]);
   Vzzz := Format(FormatString, [Vzzz]);
Memo1.Text := 'a = ' + Vzza + #13#10 + 'B = ' + IntToStr(Vb) + #13#10 + 'Z = ' +Vzzz;
ich hoffe ihr könnt damit was anfangen xD also Vzza und Vzzz sind die variablen die vorher "variable1" und "variable2" waren ...
  Mit Zitat antworten Zitat