Function aufruf

[jim_raynor]

Du kannst die ganze Funktion auch verkürzen, da du ja nur ein Zeichen abfragst:

Delphi-Quellcode:

function Lzugriff(status:integer): integer ; 
begin 
  result:= strtoint(F1000.LZugriff.Caption[status]); 
end;