hallo zusammen,
in folgender function nöchte ich die function system.pos verwenden.

zusammenfalten · markieren

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

Ist Pos nicht in der Unit SysUtils enthalten?

Zitat von Luckie:

Ist Pos nicht in der Unit SysUtils enthalten?

Nein

Zitat von khh:

in folgender function möchte ich die function system.pos verwenden.

Geht voll qualifizieren (also while System.Pos(Such, Text) > 0 do ) in Lazarus nicht?

Zitat von Stevie:

Zitat von Luckie:

Ist Pos nicht in der Unit SysUtils enthalten?

Nein

Tatsächlich. Hast recht.

Zitat von Stevie:

Zitat von Luckie:

Ist Pos nicht in der Unit SysUtils enthalten?

Nein


Geht voll qualifizieren (also while System.Pos(Such, Text) > 0 do ) in Lazarus nicht?

doch normalerweise schon,
aber auch wenn ich system.pos in beiden Varianten verwende ändert das nix am Ergebnis.
In einem Fall gehts nach systemh, im anderen nach varianth

Dann musst du auch dort das system. davor setzen...

Zitat von Teekeks:

Dann musst du auch dort das system. davor setzen...

hab ich doch

hmmm, wo genau geht er denn noch in die variantsh?