Forum: Sonstige Fragen zu Delphi
Delphi
by WoGe,
18. Jan 2010
Hallo
ist diese Variante jetzt besser?
function StripString(const sTemp: String;const ValidChars: TSysCharSet): String;
var c : Char;
i : Integer;
begin
i := 0;
Setlength(result,sizeof(sTemp));
for c in sTemp do
Forum: Sonstige Fragen zu Delphi
Delphi
by WoGe,
18. Jan 2010
Ist das wirklich so schlimm
Result := Result + c
Das es den zusätzlichen Auwand rechtfertigt?
Gruss wo
Forum: Sonstige Fragen zu Delphi
Delphi
by WoGe,
18. Jan 2010
Hallo
nachdem ich für D2010 eine Function wie strman.GetChars gesucht und NIX gefunden habe, hab ich mir selber eine gemacht:
function StripString(const sTemp: String;const ValidChars: TSysCharSet): String;
var c : char;
begin
Result := '';
for c in sTemp do if charinset(c,ValidChars) then Result := Result + c;
end;