replace+memo... Ich finds nirgens

Gast Erhaltene Danke: 1

Hi

Wie kann ich Wörter dur andere in einem memo ersetzen? Ich hab in der Delphi-Hilfe gesucht aber die ist bei mir englisch und ich werd daraus auch nicht schlau :cry:

.
Hab auch schon in Foren gesucht und jetzt frag ich einfach mal.
Wie geht es den?

Ciao

Gast Erhaltene Danke: 1

Jetzt hab ichs! So ersetz man alle Leerzeichen durch 0en

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  S: string;
begin
  s:=memo1.Text;
  //Leerzeichen in Nullen umwandeln
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
  memo1.Text:=s;

Moderiert von Tino: Code-Tags hinzugefügt.

Ehemaliges Mitglied Erhaltene Danke: 1

Klar so geht es auch. Aber wie wäre es mit StringReplace? :roll:

Gast Erhaltene Danke: 1

Luckie hat folgendes geschrieben:

Klar so geht es auch. Aber wie wäre es mit StringReplace? :roll:

Ich weiss nicht wie ich das machen sollte

Ach Luckie, du solltest dein ICQ mal neu starten! Ich kann dich irgendwie nicht mehr erreichen ohne das dann meins Abstürzt

Ehemaliges Mitglied Erhaltene Danke: 1

Warum ist mein ICQ schuld, wenn deins abstürzt? Aber bitte.

Gast Erhaltene Danke: 1

Luckie hat folgendes geschrieben:

Warum ist mein ICQ schuld, wenn deins abstürzt? Aber bitte.

Na weil ich zu allen ausser dir schreiben kann und da dachte ich (wie immer) das es vieleicht an deinem ICQ liegt

Gast Erhaltene Danke: 1

Wie kann ich den einen text in einer TXT ersetzten ohne ihn in ein memo laden zu müssen?

Ehemaliges Mitglied Erhaltene Danke: 1

Neue Frage, neuer Thread.

Aya · Verfasst: Mo 03.02.03 01:45

markieren

Quelltext

1:	Memo.Text:=StringReplace(Memo.Text,'AltesZeichen','NeuesZeichen',[rfRepalceAll, rfIgnoreCase]);

So sollte es gehen...

und ohne Memo davor, entweder in ne TStringList laden, oder mit ReadLN etc.

Aya~

_________________
Aya
I aim for my endless dreams and I know they will come true!

Ehemaliges Mitglied Erhaltene Danke: 1

Genau das habe ich ihm vor drei Stunden schon im ICQ gesagt. :roll:

Aya · Verfasst: Mo 03.02.03 01:49

Kann ich doch net wissen

_________________
Aya
I aim for my endless dreams and I know they will come true!

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

sCrAPt hat folgendes geschrieben:

Wie kann ich den einen text in einer TXT ersetzten ohne ihn in ein memo laden zu müssen?

Bitte erstelle für jede neue Frage ein neues Topic!

Luckie hat folgendes geschrieben:

Genau das habe ich ihm vor drei Stunden schon im ICQ gesagt.

@sCrAPt: Wenn Du hier eine Frage stellst dann möchte ich Dich bitten auch hier die Lösungen zu diskutieren!

Gruß
TINO

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme