StringReplace geht nicht

[Hansa]

Moin,

kann mir mal einer sagen, was hier falsch ist?

Delphi-Quellcode:

sl.LoadFromFile ('TEST');
StringReplace (sl.Text,'5','',[rfReplaceAll]);
ShowMessage(sl.text);

An dem sl.Text ändert sich absolut nichts. Die 5 ist nach wie vor da drin.

[silver-moon-2000]

Zitat von Hansa:

Moin,

kann mir mal einer sagen, was hier falsch ist?

Delphi-Quellcode:

sl.LoadFromFile ('TEST');
StringReplace (sl.Text,'5','',[rfReplaceAll]);
ShowMessage(sl.text);

An dem sl.Text ändert sich absolut nichts. Die 5 ist nach wie vor da drin.

Probier's mal so:
SL.Text := StringReplace (sl.Text,'5','',[rfReplaceAll]);

[Perlsau]

StringReplace ist eine Function und liefert den geänderten String in Result zurück.

[DeddyH]

Mal ganz ehrlich: nach 12 Jahren Forenzugehörigkeit sollte man die F1-Taste aber bedienen können.

[Hansa]

Thx,

tja das kommt davon. StrToFloat (StringReplace(... Wenn man sich da nur das StrReplace rauszieht, ohne drüber nachzudenken, was der Rest wohl zu bedeuten hat.

Wie heisst noch der Compiler-Schalter, um solches Verhalten abzustellen ? Dchlimmer ist allerings, dasss mich das StringReplace sowieso nichts nützt. Es müssen ca. 20 verschiedene Zeichen entfrernt werden, nicht nur eins. Gibts noch was in der Richtung oder muss ich das Zeichen für Zeichen durchgehen ?

[sx2008]

Ich wünsche mir ja schon seit langem ein Schlüsselwort in Delphi mit dem man signalisieren kann dass das Ergebnis einer Funktion zwingend entgegengenommen werden muss.

Delphi-Quellcode:

function StringReplace(const S, OldStr, NewStr: string; Flags: TReplaceFlags): string;pure;
// "pure" bedeutet die Funktion ist frei von Nebeneffekten
// deshalb würde der Aufruf der Funktion wie eine Prozedur als Fehler betrachtet

[Union]

Und ich wünsche mir einen Compilerschalter, der konstante Parameter verbietet oder bei der Verwendung warnt:

Delphi-Quellcode:

GenerateComplicatedOutput('Test.txt', 1, 7.35, 'No') // Sollte nicht zulässig sein
GenerateComplicatedOutput(LFileName, LPageNumber, LFactor, C_NO) // So ist es fein

[Hansa]

Um das Prozedur-/Funtionsverhalten zu beeinflussen, das wäre jedenfalls {$X-}, standardmässig ist das offensichtlich {$X+}

[Union]

Zitat von Hansa:

Um das Prozedur-/Funtionsverhalten zu beeinflussen, das wäre jedenfalls {$X-}, standardmässig ist das offensichtlich {$X+}

Und schon wird fast Dein gesamter Code nicht mehr compiliert weil Du auch kein result mehr hast.

Delphi-Quellcode:

// Geht nicht
function IstUngleichNull(AInteger : integer) : boolean;
begin
  result := AInteger <> 0;
end;

// Muss dann so sein
function IstUngleichNull(AInteger : integer) : boolean;
begin
  IstUngleichNull := AInteger <> 0;
end;

[Hansa]

Zitat von Union:

..wird fast Dein gesamter Code nicht mehr compiliert...

Und ob der compiliert wird. Das wäre zwar strenger, aber mehr Arbeit ist das kaum. Der dämliche Fehler hier, den hätte ich mir jedenfalls erspart.