Forum: Object-Pascal / Delphi-Language
Delphi
by CalganX,
6. Mär 2003
Hm... danke, dass wird es wohl sein, aber ich habe gerade auf die schnelle (ich habe min. 1 Std. mal drangessessen :wall:) hingeschrieben:
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;
:wall::wall::wall::wall::wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by CalganX,
6. Mär 2003
Moin,
folgende Funktion:
function TMainFrm.getID: integer;
var
aTmp: string;
i: integer;
begin
aTmp := getcurSyn.Name;
for i:= length(aTmp) downto 0 do begin
if (aTmp in ) then