Function aufruf

[Reini64]

Hallo ich komme hier nicht weiter,
was mache ich falsch.

ich habe eine Function:

Delphi-Quellcode:

function Lzugriff(status:integer): integer ;
var
  m: string;
begin
  m:= copy(F1000.LZugriff.Caption,status,1);
  result:= strtoint(m);
end;

der wert für LZugriff.caption ist : "0011111110001001011101"

ich möchte nun mit der Function den wert aus der 6 stelle ermitteln.

Delphi-Quellcode:

status := 6;
i:= lzugriff (status);

und erhalte nun folgende Fehlermeldung:

[Pascal Fehler] f_1000.pas(147): E2066 Operator oder Semikolon fehlt

Danke fü Eure Hilfe

[ste_ett]

An dem Code ist so nicht falsch, :)

Zeig mal den Code um Zeile 147 herum. :)

[NormanNG]

Hi,

statt dem Formulartitel holst du den "Funktions-Titel" ;-)

versuchs mal mit

Delphi-Quellcode:

m:= copy(F1000.Caption,status,1);

[Reini64]

Danke NormanNG,
habe die function umbenannt

Delphi-Quellcode:

function zugriff(status:integer): integer ;
var
  m: string;
begin
  m:= copy(F1000.LZugriff.Caption,status,1);
  result:= strtoint(m);
end;

danach geht es.
also nochmals Danke !

[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;

[Muetze1]

... wobei seine Funktion bei einem zu grossen "Status"-Wert einfach nix zurückliefert und dann StrToInt() mit "... ist kein gültiger Integer Wert aussteigt" und deine Lösung zuvor einen Range Check Error auslösen würde (sofern eingeschaltet) und danach auch die zuerst genannte Meldung...

[Angel4585]

mach es doch so... :roll:

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;