Alle + und ' Zeichen aus String löschen ?

Blamaster · Beiträge: 164

Hi,

ich habe eine Sting in dem zwischen wörtern ' und + stehen. Wie kann ich nun alle ' und + aus einem String löschen lassen ?
die Zeichen befinden sich nicht immer an den selben Stellen. Ein löschen über Delete(String,x,x) fällt also raus.

Auch habe ich schon versucht mit POS('+', string) versucht die Position des + zeichen zu ermitteln, doch das macht auch probleme das ja sowohl + als auch ' im Delphi syntax vorkommen.

mfg Blamaster

Narses · Verfasst: So 25.05.08 17:11

Moin!

STRINGREPLACE

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

huuuuuh · Verfasst: So 25.05.08 17:12

versuch StringReplace(string,'+','')

Yogu · Verfasst: So 25.05.08 17:54

Hallo,

markieren

Delphi-Quelltext

1:	Text := StringReplace(StringReplace(Text, '+', '', [rfReplaceAll]), '''', '', [rfReplaceAll]);

Aber vielleicht wäre es sinnvoller, eine while-if-Abfrage zu machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

i := 1;                        // Laufvariable initialisieren
while i <= Length(S) do        // Solange Variable noch in der String-Länge ist
  if S[i] in ['+', ''''] then  // Wenn das Zeichen in der Menge enthalten ist,
    S := Delete(S, i, 1)       // Zeichen löschen und Position beibehalten (enthält jetzt das nächste Zeichen)
  else                         // sonst
    i := i + 1;                // Vairiable erhöhen

Grüße,
Yogu

Blamaster · Beiträge: 164

Jau so funktioniert das super.

Thx

Narses · Verfasst: So 25.05.08 23:01

Moin!

Yogu hat folgendes geschrieben:

Aber vielleicht wäre es sinnvoller, eine while-if-Abfrage zu machen

Nein, das Delete() ist ungefähr genau so "schlecht" wie StringReplace() oder viele Stringverkettungen.

Wenn schon, dann mit einer Kopie und Abschneiden: :idea:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function Clean(const S: String): String;
  var
    i, p: Integer;
begin
  Result := S;
  p := 0;
  for i := 1 to Length(S) do
    if NOT (S[i] in ['+',#39]) then begin
      Inc(p);
      Result[p] := S[i];
    end;
  SetLength(Result,p);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := Clean(Edit1.Text);
end;

Hier wird nur einmal Speicher für den String angefordert und dann ggfs. auf die nötige Länge gekürzt, wärend Delete() und auch StringReplace() u.U. mehrfach den String umkopieren.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

wazup · Beiträge: 101 Windows XP Delphi 2009

Ich hätte es so gemacht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function Clean(const S: string; List: array of Char): string;
var
  TEMP, CharList: string;
  I: Integer;
begin
  Result := '';
  CharList:= PChar(@List);
  TEMP := S;

  if TEMP <> '' then
    for I := 1 to Length(TEMP) do
      if Pos(TEMP[I], CharList) = 0 then
        Result := Result + TEMP[I];
end;

[...]

Caption := Clean('hallo', ['l']); // "hao"

Narses · Verfasst: Mo 26.05.08 09:32

Moin!

wazup hat folgendes geschrieben:

Ich hätte es so gemacht:

markieren

Delphi-Quelltext

1:
2:
3:

//...
Result := Result + TEMP[I];
//...

Dieser Ansatz ist bei langen Strings absolut tödlich. :shock:

Deshalb: genau eine Kopie anlegen und ggfs. absägen! :idea:

(btw: mein Ansatz ist sogar inline-fähig)

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme