Beliebigkeitssymbol?

[MaToBe]

Hallo

ich will mit folgendem Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MemoIniShow.Lines[0] :=StringReplace(MemoIniShow.Lines[0], ('[' + * +  ']') , '0', [rfReplaceAll]);
end;

alle Zeichen, die eingeklammert sind (zB [ Test123 ] ) aus meinem Memo mit 0 ersetzen. Ich habe dies mit einem "Beliebigkeitszeichen" versucht, aber leider klappt das nicht.
Gibt es ein anderes "Beliebigkeitszeichen" oder muss man das Problem anders lösen?

MFG

[Apollonius]

Mit Delphi-eigenen Mitteln ist es nicht ganz trivial, es liefe auf eine Verbindung von PosEx und Copy hinaus. Weit eleganter geht es aber sicherlich mit Regulären Ausdrücken.

[MaToBe]

was meinst du mit Regilären Ausdrücken ? Feste Bezeichnungen wie Haus, Garten und Schippe ?

EEs steht aber in jeder Klammer etwas anderes.

[3_of_8]

http://de.wikipedia.org/wiki/Regulärer_Ausdruck

[MaToBe]

muss ich da wirklich wieder ne extra Komponente installieren?

[Die Muhkuh]

Ja

[3_of_8]

Müsste reichen, sich ne entsprechende Unit zu suchen und die einzubinden.

[bigben37]

Ich hab jetzt mal schnell ne Funktion geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text :=  ReplaceArea(Edit1.Text, '[', ']', '0');
end;

function TForm1.ReplaceArea(CurrentS, FromS, ToS, ReplcS: string): string;
var
  FromSPos, ToSPos: Integer;
begin
  result := '';
  FromSPos := Pos(FromS, CurrentS);
  ToSPos := Pos(ToS, CurrentS);
  while (FromSPos > 0) and (ToSPos > 0) do
    begin
      Delete(CurrentS, FromSPos, ToSPos - FromSPos + Length(ToS));   
      Insert(ReplcS, CurrentS, FromsPos);
      FromSPos := Pos(FromS, CurrentS);
      ToSPos := Pos(ToS, CurrentS);
    end;
  result := CurrentS;
end;

Wurde das so gehen?

[alzaimar]

Benjamin, besorg Dir eine RegularExpression-Klasse und verwende die. Reguläre Ausdrücke sind so fundamental, Du wirst, sofern Du dich weiter mit Softwareentwicklung beschäftigst nicht darum herum kommen. Je eher Du das drauf hast, desto besser.

[bigben37]

Ok, werd ich machen, fange gleich morgen an...

Kannst Du mir irgend eine Seite empfehlen?

MFG, Benjamin