| Autor |
Beitrag |
gbst51sc
Beiträge: 56
Windows XP
Delphi 7.0 Enterprise, Delphi 2005 Personal
|
Verfasst: Mo 30.10.06 09:33
Hi,
wie kann man einen Text nach einem bestimmten Wort durchsuchen und dieses durch ein anderes ersetzen. Das ersetzen soll in einem Bezeichnungs-Generator automatisch geschehen, also ohne Nutzereingaben oder Dialoge.
Gruß Moderiert von  Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mo 30.10.2006 um 10:20
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Mo 30.10.06 10:06
Hallo,
in etwa so
Wort suchen > Pos
Cursor auf Anfang setzen > SelStart
gefundenes Wort selektieren > Length(Suchwort) > SelLength
Wort ersetzen > SelText
Ps.: Der Titel passt nicht zur Frage, oder  _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
gbst51sc 
Beiträge: 56
Windows XP
Delphi 7.0 Enterprise, Delphi 2005 Personal
|
Verfasst: Mo 30.10.06 12:16
mit welchem Befehl kann ich denn im text suchen (von Textanfang an)
|
|
Coder
Beiträge: 1383
Erhaltene Danke: 1
WinXP
D2005 PE
|
Verfasst: Mo 30.10.06 13:26
Wörter ersetzen geht mit StringReplace.
Was es mit dem Bezeichnungsgenerator auf sich hat versteh ich jedoch nicht.
MfG
|
|
WASEO
Beiträge: 56
Win98, Win2000, WinXP
D6 Prof, D7 Prof
|
Verfasst: Mo 30.10.06 13:27
_________________ Erstaunlich sind nicht die Dinge, die wir nicht kennen, sondern die wir kennen und die nicht so sind.
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Mo 30.10.06 13:36
Hallo,
@gbst51sc
| Lannes hat folgendes geschrieben: | ...Wort suchen > Pos
... |
  Delphi-Quelltext
1:
2:
3:
| var p : Integer;
begin
p := Pos('Suchwort',Richedit.Text); |
@Coder
D3 kennt StringReplace nicht, deshalb vergess ich das immer wieder vorzuschlagen. 
@WASEO
| gbst51sc hat folgendes geschrieben: | | ...automatisch geschehen, also ohne Nutzereingaben oder Dialoge... |
 _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
Flocke
Beiträge: 54
Win 2000, Win XP, Win 2003, Linux
Delphi 2006 Prof.
|
Verfasst: Mo 30.10.06 14:04
| Lannes hat folgendes geschrieben: | @WASEO
| gbst51sc hat folgendes geschrieben: | | ...automatisch geschehen, also ohne Nutzereingaben oder Dialoge... |
|
Macht der Code von den Schweizern doch auch überhaupt nicht. [s]Ist IMHO die bessere Alternative, da durch den direkten schreibenden Zugriff auf die Eigenschaft Text (bzw. Lines.Text) jegliche Formatierung verloren geht.[/s] Die leisten sich zwar einige Performance-Schnitzer, es funktioniert aber.
// Edit: Passage gestrichen, nicht vollständig gelesen.
|
|
