Einzelnen Beitrag anzeigen

moperswings

Registriert seit: 27. Mai 2004
Ort: Bad Sooden-Allendorf
240 Beiträge
 
Delphi 6 Professional
 
#1

Wert bestimmen ohne Format

  Alt 27. Apr 2007, 09:47
Hallo,

ich würde gerne wissen, wie ich mein Bsp.-programm verkürzen könnte!
Wie müsste der Code aussehen damit ich auf soetwas komme wie
summe := a_zeiger + b_zeiger; , damit ich mir die String-Konvertierung sparen kann?
Ihr könnt mir bestimmt helfen!
Viele Grüsse, moperswings
Delphi-Quellcode:
var
   a,b: byte;
   a_zeiger, b_zeiger: byte^;
   a_wert, b_wert: string;
   summe: integer;

begin
   a := 1;
   b := 2;

   a_zeiger := @a;
   b_zeiger := @b;

   a_wert := Format('%d', [a_zeiger^]);
   b_wert := Format('%d', [b_zeiger^]);

   summe := strtoint(a_wert) + strtoint(b_wert);

   Label1.Caption := inttostr(summe);

end;
  Mit Zitat antworten Zitat