Function aufruf

[Angel4585]

mach es doch so...

Delphi-Quellcode:

function Lzugriff(status:integer): integer ; 
begin 
Result:=-1;
if Length(F1000.LZugriff.Caption)< status then
 exit;
result:= strtoint(F1000.LZugriff.Caption[status]); 
end;