hallo zusammen,
in folgender function nöchte ich die function system.pos verwenden.
Delphi-Quellcode:
function StrTran(Textstring,Such,Ersetz:string):string;
var nPos, nCounter :integer;
begin
nCounter := 0;
While Pos(Such,Text)>0 do
begin
nPos := Pos(Such,Text);
Delete(Textstring,nPos,length(Such));
Insert(Ersetz,Textstring,nPos);
inc(nCounter);
if nCounter > 255 then
break;
end;
Result := Textstring;
end;
Function Pos (const Substr : AnsiString; const Source : AnsiString) : SizeInt;
wenn ich die funktion als funktion von Torm einbinde,
also function TForm.StrTran(Textstring,Such,Ersetz:string):strin g;
dann klappt das auch.
Sobald ich aber die Funktion in eine separate
unit auslagere also:
function StrTran(Textstring,Such,Ersetz:string):string;
dann nimmt er nicht mehr die funtion aus systemh.inc , sondern aus varianth.inc, was zur Folge hat, dass die Argumente nicht passen.
ein expliziter Aufruf von system.pos funktioniert auch nicht.
Was mache ich falsch?
Achtung Lazarus!
Danke Gruss KHH