erklärt mir bitte ein programm

[a3rosol]

helft ihr mir noch mal?

Delphi-Quellcode:

function HexToDec(s:string):integer;
var p:integer;
    c,i:integer;
begin
 p:=0;
 for i:=1 to length(s) do
  begin
   case s[i] of
     '0'..'9': c:=ord(s[i])-ord('0');
     'A'..'E': c:=ord(s[i])-ord('A')+10;
     'a'..'e': c:=ord(s[i])-ord('a')+10;
   end;
   p:=p*16+c;
   end;
 result:=p;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
     s:= Edit1.Text;
     label1.Caption:= IntToStr(HextoDec(s));
end;

doofer weise bekomme ich ne (warnung)/meldung von wegen
[DCC Warnung] Unit1.pas(40): W1036 Variable 'c' ist möglicherweise nicht initialisiert worden
ich meineaber die variable deklariert zu haben
das ergebnis ist deswegen falsch

[Progman]

c muss am Anfang ebenfalls initialisiert werden, weil es sonst irgendeinen zufälligen Wert haben könnte, das sagt die Meldung aus. Es kann ja vorkommen, dass mal keine case-Bedingung erfüllt ist, dann käme Müll raus
...oder so wies grenzgänger gezeigt hat

[grenzgaenger]

Zitat von a3rosol:

helft ihr mir noch mal?

Delphi-Quellcode:

function HexToDec(s:string):integer;
var p:integer;
    c,i:integer;
begin
 p:=0;
 for i:=1 to length(s) do
  begin
   case s[i] of
     '0'..'9': c:=ord(s[i])-ord('0');
     'A'..'E': c:=ord(s[i])-ord('A')+10;
     'a'..'e': c:=ord(s[i])-ord('a')+10;
    else c := 0; //else zweig vergessen
   end;
   p:=p*16+c;
   end;
 result:=p;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
     s:= Edit1.Text;
     label1.Caption:= IntToStr(HextoDec(s));
end;

doofer weise bekomme ich ne (warnung)/meldung von wegen
[DCC Warnung] Unit1.pas(40): W1036 Variable 'c' ist möglicherweise nicht initialisiert worden
ich meineaber die variable deklariert zu haben
das ergebnis ist deswegen falsch

[inherited]

Das geht noch viel einfacher:

Delphi-Quellcode:

function HexToDec(s:string):integer; 
begin
  result:=StrToInt('$'+s);
end;

[a3rosol]

vielen lieben dank dass ihr geduldig wart
@inherited: es gibt böse menschen die von einem verlangen dass man einfache sachen kompliziert macht...

[SirThornberry]

Zitat von a3rosol:

vielen lieben dank dass ihr geduldig wart
@inherited: es gibt böse menschen die von einem verlangen dass man einfache sachen kompliziert macht...

Ich glaub diese Leute nennen sich Lehrer. Aber sie meinen es letztendlich gut mit dir. Sie wollen das du Algorythmen verstehst und dich mit den Grundelementen der Sprache befasst. Und da wäre keinem geholfen wenn man einfach fertige Funktionen nimmt.

[Thorben_Ko]

Kenn ich, nennen sich Lehrer -.-