Den ganzen Text 'Ersetzen durch...'

TimonWorld · Beiträge: 397

Hi ich möchte einem code editor mit sozusagen übersetzung von befehlen proggi! Mit nem klick auf dem Button soll er den Text: 'echo' durch 'Text: ' ersetzten und noch andere...

Aber wie?

Hier ein paar beispiele die ich in meinem editor erstzten will:
'COPY' -> 'Kopiere: '
'ECHO' -> 'Text: '
'RENAME' -> 'Umbennen:'
etc.

Aber, wie???

Moderiert von Peter Lustig: Topic Verschoben

Gast Erhaltene Danke: 1

Vielleicht ist ja StringReplace was für dich

Gruß

ixtreme.de

TimonWorld · Beiträge: 397

und wie benutzt man den?

Raphael O. · Beiträge: 1596 VS 2013

schonmal was von der Delphi-Hilfe gehört??

Zitat:

StringReplace gibt einen String mit ersetzten Sub-Strings zurück.

Unit

SysUtils

Kategorie

String-Verarbeitung

type
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Beschreibung

Mit StringReplace ersetzen Sie in dem angegebenen String den im Parameter OldPattern festgelegten Sub-String mit dem im Parameter NewPattern übergebenen neuen Sub-String. StringReplace nimmt an, daß der String Multibyte-Zeichen enthalten kann.

Wenn im Parameter Flags nicht rfReplaceAll enthalten ist, wird nur das erste Vorkommen von OldPattern im String S ersetzt. Andernfalls werden alle Instanzen von OldPattern durch NewPattern ersetzt.

Wenn der Parameter Flags rfIgnoreCase enthält, wird die Groß-/Kleinschreibung nicht berücksichtigt.

anwenden kann man das ganze so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var s:string;
begin
s:='dies ist ein text dies ist ein versuch "dies" soll nun durch "das" ersetzt werden';
s:=stringreplace(s,'dies','das',[rfReplaceAll,rfIgnoreCase]);
end;

TimonWorld · Beiträge: 397

hilfe? was ist den das??? :lol:

TimonWorld · Beiträge: 397

>> Aber wie soll ich den memo text in den string laden???

Raphael O. · Beiträge: 1596 VS 2013

z.B. zeilenweise...:

markieren

Delphi-Quelltext

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

var i:Integer;
begin
for i:=0 to memo1.lines.count-1 do
begin
memo1.lines[i]:=stringreplace(memo1.lines[i],...);
end;
end;

StefanH · Verfasst: So 11.01.04 16:27

oda ganz:

Memo1.Text:=StringReplace(Memo1.Text, 'lebkuchen,'lab',[rfReplaceAll,rfIgnoreCase]);[/delphi]

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme