Hm... danke, dass wird es wohl sein, aber ich habe gerade auf die schnelle (ich habe min. 1 Std. mal drangessessen
) hingeschrieben:
Delphi-Quellcode:
function TMainFrm.getID: integer;
var
aTmp: string;
begin
aTmp := getcurSyn.Name;
Result := StrToInt( copy(aTmp, Pos('g', aTmp) + 1, length(aTmp) - Pos('g', aTmp) ) );
end;
Chris