Hallo
nachdem ich für D2010 eine Function wie strman.GetChars gesucht und NIX gefunden habe, hab ich mir selber eine gemacht:

markieren

Delphi-Quellcode:

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;

Habe ich damit die 'neuen' Features richtig ausgereizt (Hatte bisher nur D7)
und wie sollte man eine solche Funktion nennen?
Gefunden habe ich folgende Namen: Getchars, StripNonConforming, OnlyInt

Grüsse
wo

Zumindestens könnte man das Speichermanagement verbessern
und das ginge auch schon in den Vorgänger-Delphi-Versionen.

zusammenfalten · markieren

Delphi-Quellcode:

function StripString(const sTemp: String; const ValidChars: TSysCharSet): String;
var c : Char;
  i : Integer;
begin
  i := 0;
  for c in sTemp do
    if CharInSet(c, ValidChars) then Inc(i);
  SetLength(Result, i);
  i := 0;
  for c in sTemp do
    if CharInSet(c, ValidChars) then
    begin
      Inc(i);
      Result[i] := c;
    end;
end;

Auch wenn es mehr aussieht, ist es so im Endefekt sogar eine Berechnung weniger, je Durchlauf.

markieren

Delphi-Quellcode:

if CharInSet(c, ValidChars) then
begin
  Result[i + 1] := c;
  Inc(i);
end;

und am schluss bitte noch ein
  SetLength(Result, i);

Wieso?

[edit]
oder "Warum?", bzw. "Weshalb?"

Zitat von himitsu:

Zumindestens könnte man das Speichermanagement verbessern...

Ist das wirklich so schlimm
Result := Result + c Das es den zusätzlichen Auwand rechtfertigt?

Gruss wo

Probier es einfach aus.

zusammenfalten · markieren

Delphi-Quellcode:

Var C: LongWord;
  S: String;
  i: Integer;
Begin
  S := '';
  C := GetTickCount;
  For i := 1 to 50000000 do S := S + 'a';
  Memo1.Lines.Add(IntToStr(GetTickCount - C));

  S := '';
  C := GetTickCount;
  SetLength(S, 50000000);
  For i := 1 to 50000000 do S[i] := 'a';
  Memo1.Lines.Add(IntToStr(GetTickCount - C));
End;

PS: die Zeit steigt übrigens Exponential an, wärens es ansonsten (nur einmal Speicher reservieren) Linear wäre.

S:=S+'a'; bedeutet soviel, wie neuen String anlegen, beide Teile reinkopieren, alten String freigben und den neuen String an die Variable übergeben.

Zitat von himitsu:

Wieso?

[edit]
oder "Warum?", bzw. "Weshalb?"

Sonst stimmt die Länge deines Result nicht, wenn du wirklich Zeichen 'strip'st und hintendran steht eine entspechende Anzahl #0

Zitat von Jaynder:

Sonst stimmt die Länge deines Result nicht, wenn du wirklich Zeichen 'strip'st und hintendran steht eine entspechende Anzahl #0

Ich kann mich täuchen, aber ich glaub es stimmt schon.

Hallo

ist diese Variante jetzt besser?

zusammenfalten · markieren

Delphi-Quellcode:

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
    if CharInSet(c, ValidChars) then
    begin
      Inc(i);
      Result[i] := c;
    end;
  Setlength(result,i);
end;

Da reservier ich am Anfang zwar möglicherweise ein paar Bytes zuviel, spare mir aber die 1te Schleife

Gruss wo

Edit: Formverweise entfernt

Wenn du statt SizeOf(sTemp) ein Length(sTemp) nimmst, dann geht das auch.