dectohex

[MasterTobi]

hey

Delphi-Quellcode:

  function DecToHex(n:int64):string;
var s:string;
    c:char;
begin
s:='';
while n<>0 do
  begin
   if n mod 16 <10 then c:=chr(n mod 16+ord('0'))
                   else c:=chr(n mod 16+ord('A')-10);
   s:=c+s;
   n:=n div 16;
  end;
result:=s;
end;


procedure TForm2.Button4Click(Sender: TObject);
begin
 edit1.Text := inttostr( dectohex (Edit3.Text));
end;

edit1.Text := inttostr( dectohex (Edit3.Text)); hier sagt er mir den fehler :
[Fehler] Unit2.pas(130): E2010 Inkompatible Typen: 'Int64' und 'TCaption'
warum?

[Phoenix]

:wall:

Schau Dir DecToHex mal an. WAS will die Funktion für einen Eingabewert? Richtig: Einen Int64.
WAS gibst Du der Funktion rein? Einen String.

Also musst Du den String den Du da reingibst erstmal in einen Integer konvertieren.

[Cyberbob]

Delphi-Quellcode:

edit1.Text := dectohex(StrToInt(Edit3.Text));

dir hat ein StrToInt gefehlt. Dein DesToHex will ajnen Integer-Wet haben, bekommt aber nen String.


[EDIT]Roter Kasten???[/EDIT]

[Phoenix]

Cyberbob: Das gleiche Gilt für Dich. Was will IntToStr für einen Eingabewert? Einen Int. Was liefert DecToHex zurück? Einen String... :zwinker:

[Cyberbob]

Ja gut, das hab ich jetzt doch noch üersehen. Ist korregiert!

[MasterTobi]

viel dank

[freddiiii]

irgendwie is es immer das gleiche problem xD
bevor du ins forum schreibst, guck dir dochmal an was für datentypen übergebn und was für datentypen ausgegebn etc. werden sollen :)

[Christian Seehase]

Moin Zusammen,

und wenn mir jetzt noch jemand erklären könnte, wo der Unterschied von DecToHex und IntToHex (unit SysUtils) ist... ;-)

[inherited]

Bei IntToHex darf man sogar noch angeben wieviele Stellen man mindestens haben will :mrgreen: