Bitte Hilfe für umrechnungsprogramm

[GodlikeEvi]

[delphi][delphi][quote][b][delphi]Huhu Leute,

ich hab folgendes Problem, ich schreibe grad ein programm zur Ermittlung von Dezimal und dual daten und deren jeweiligen umwandlung.
doch nun hab ich das problem: Inkompatible typen integer und extended.
und zwar an dieser zeile:

Dezimal := Dezimal + StrToInt(self.Text[i])*IntPower(2,length(self.Text)-1)

die procedure sieht vollständig so aus:

procedure T_Bin_Edit.P_Dez(Sender: TObject);
begin
begin
if self.Text <> '' then
Dezimal := 0;
i := 1;
end;
begin
while (i<=length(self.Text))and(StrToInt(self.Text[i])<=1) do
begin
Dezimal := Dezimal + StrToInt(self.Text[i])*IntPower(2,length(self.Text)-i);
inc(i);
end;
begin
if i<=length(self.Text) then
Dezimal := 0;
self.Text := FloatToStr(Dezimal);
end;
end;
end;

bitte um schnelle hilfe

mfg

[Larsi]

also erstmal solltest du das mal als code formatieren :) !!!

Delphi-Quellcode:

Dezimal := Dezimal + StrToInt(self.Text[i])*IntPower(2,length(self.Text)-1)

muss man da das self.text nicht auch noch mit strtoint machen???

Delphi-Quellcode:

*IntPower(2,length(self.Text)-1)

MFG Lars Wiltfang

[DeddyH]

Ist Dezimal denn Extended?
@Larsi: Length(String) gibt eine Integer zurück :!:

[GodlikeEvi]

Dezimal ist Integer
IntPower ist extended

mfg

[DeddyH]

Dann versuch es mal so:

Delphi-Quellcode:

  Dezimal := Dezimal + StrToInt(Self.Text[i])*trunc(IntPower(2,length(Self.Text)-1));

[edit] Hatte die Laufvariable vergessen [/edit]

[GodlikeEvi]

ok, super danke, das Funktioniert, die anderen fehler bekomme ich alleine hin

danke euch für die schnelle hilfe.

mfg