Inkompatible typen String und integer

[DeddyH]

Ohne zu testen:

Delphi-Quellcode:

procedure TForm1.btn_UmrechnenClick(Sender: TObject);

function Umwandeln_und_Addieren(z1,z2,z3,z4,z5,z6,z7,z8:string):integer;
Var
  Erg:integer;
begin
  Erg:=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;
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;
  Label1.Caption:=Inttostr(Umwandeln_und_addieren(z1,z2,z3,z4,z5,z6,z7,z8));


end;