Delphi-PRAXiS
Seite 1 von 3  1 23   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Bestimmte Zeichen im String durch andere ersetzen!? (https://www.delphipraxis.net/76306-bestimmte-zeichen-im-string-durch-andere-ersetzen.html)

LukeGee 1. Sep 2006 20:34


Bestimmte Zeichen im String durch andere ersetzen!?
 
Hallo,

wie kann ich bestimmte Buchstaben bzw. Zeichen in einem String durch andere ersetzen?

Danke.

MfG

mkinzler 1. Sep 2006 20:35

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
StringReplace/AnsiStringReplace

mr.winkle 1. Sep 2006 20:38

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
oder mit ner for-schleife...

Delphi-Quellcode:
var s:string;
    i:integer;
 //...
s:='Dein text';
for i:=1 to length(s) do
 if s[i]='t' then s[i]:='T';

Cyberbob 1. Sep 2006 21:01

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
Oder mit der Funktion Translate()


Siehe hier

LukeGee 3. Sep 2006 23:58

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
Hallo, ok ich habs jetzt mit StringReplace gemacht. Aber wie kann ich mehrere zeichen ersetzen lassen. eins ist ja kein problem, da hab ich:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  text: string;
  text2: string;
begin
text := edit1.text; //eingabe des edit felds wird in der text variable gespeichert.
  text2:=StringReplace(text,'a','e',[rfReplaceAll, rfIgnoreCase]); // die 'a's werden durch'e's ersetzt und dann in der text2 gespeichert.
Panel1.Caption:=text2; //die wird im panel feld ausgegeben.
end;
aber wie mach ich das, wenn ich mehrere verschiedene zeichen ersetzen lassen will?

fwsp 3. Sep 2006 23:59

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
schrittweise nacheinander.

SirThornberry 3. Sep 2006 23:59

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
mehrere StringReplace hintereinander wären eine Lösung oder dann eben mit der For-Schleife

LukeGee 4. Sep 2006 00:02

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
aber wenn ich

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  text: string;
  text2: string;
begin
text := edit1.text;
  text2:=StringReplace(text,'a','e',[rfReplaceAll, rfIgnoreCase]);
  text2:=StringReplace(text,'b','f',[rfReplaceAll, rfIgnoreCase]);
Panel1.Caption:=text2;
end;
mache, dann ersetzt es immer nur das letzte. also die Bs duch Fs.

fwsp 4. Sep 2006 00:03

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
guck mal was du StringReplace übergibst.

text?

//Edit1
Man nennt keine variable Text, kann zu problemen mit der Form kommen.

3_of_8 4. Sep 2006 00:05

Re: Bestimmte Zeichen im String durch andere ersetzen!?
 
Mit zwei verschachtelten For-Schleifen und zwei Arrays of Char könnte man das auch sehr schön hinkriegen.

Achja und wenn das System so weitergehen soll, also a->e, b->f, c->g, ..., z->d, dann kannst du das auch einfacher hinkriegen.

@fwsp: Kann es nicht. Lokale Variablen und Parameter haben Vorrang vor Felder der Klasseninstanz.


Alle Zeitangaben in WEZ +2. Es ist jetzt 10:17 Uhr.
Seite 1 von 3  1 23   

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf