Inkompatible typen String und integer

[dor557]

Ich habe nun Folgendes erstellt :

Delphi-Quellcode:

procedure TForm1.btn_UmrechnenClick(Sender: TObject);

function Umwandeln_und_Addieren(z1,z2,z3,z4,z5,z6,z7,z8:string):String;
begin
  result:=Inttostr(Strtoint(z1)*128+
                Strtoint(z2)*64+
                Strtoint(z3)*32+
                Strtoint(z4)*16+
                Strtoint(z5)*8+
                Strtoint(z6)*4+
                Strtoint(z7)*2+
                Strtoint(z8)*1);
end;

Var
  z1,z2,z3,z4,z5,z6,z7,z8:string;
  Erg:Integer;
begin
  z1:=Edt128.Text;
  z2:=Edt64.Text;
  z3:=Edt32.Text;
  z4:=Edt16.Text;
  z5:=Edt8.Text;
  z6:=Edt4.Text;
  z7:=Edt2.Text;
  z8:=Edt1.Text;
//  erg:= Umwandeln_und_addieren(z1,z2,z3,z4,z5,z6,z7,z8);
  Label1.Caption:=Umwandeln_und_addieren(z1,z2,z3,z4,z5,z6,z7,z8);


end;

wenn ich da in Jedem Feld 1 eingebe bekomme ich 255 !

mache ich den wert 1010 am schluss und den rest mit 0 bekomme ich 10 heraus !

geht !
oder habe ich da jetzt was vergessen ?

Das das orrekt herauskommt sieht man Hier !

Gruss Sascha