[Delphi] StringReplace

[Verwijderd]

'k heb niet echt een topdag vandaag, maar dit is echt de laatste vraag (voor vandaag)

De functie StringReplace is in Delphi standaard zo gedefinieerd:

code:

type
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

maar wat kan ik hier als vierde argument in gaan voeren zodat het werkt.

Zelf lijkt dit

code:

str4 := StringReplace(str1, str2, str3, rfReplaceAll);

me wel een goede oplossing, maar krijg dan deze

[Error] status.pas(73): Incompatible types: 'TReplaceFlags' and 'Enumeration'

foutmelding

[Creepy]

code:

str4 := StringReplace(str1, str2, str3, [rfReplaceAll]);

Het verschil tussen een "normale" variabele en een set

[mulder]

Moet je er geen [brackets] omheen zetten? (Je kan meerdere flags meegeven)

[VisionMaster]

Check goed of je SysUtils hebt toegevoegd in je USES stukje...

en anders kan je ze handmatig toevoegen...


type
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);

bovenaan je andere types

[Verwijderd]

Bad Luck, heb SysUtils inderdaad tussen mijn uses staan, maar dan levert

code:

      str4 := StringReplace(str1, str2, str3, [rfReplaceAll]);

toch de foutmelding

[Error] status.pas(73): Incompatible types

Voor de zekerheid zeg ik er nog maar ff bij dat str1, str2, str3 en str4 als strings zijn gedefineerd.

[Creepy]

code:

procedure TForm1.FormCreate(Sender: TObject);
var s1,s2,s3,s4: string;
begin
     s1:=stringreplace(s2,s3,s4,[rfReplaceAll]);
end;

Dit werkt bij mij zonder problemen..