erklärt mir bitte ein programm

[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