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
Zitat
Baum-Darstellung
