Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#1

nicht alle Strichpunkte durch #13 setzen lassen

  Alt 10. Sep 2005, 19:30
Hallo,

ich hock schon seit einiger Zeit vorm Rechner und grübel über ein Problem.
Nur leider will mir einfach keine gute Lösung einfallen.

Aber hier erst mal mein Problem.

Ich hab diesen String:
Name=ID_STATE_Test;Section=3;Mask=ID_MASK_Testmaske;Previous=;Calc=;Horz_Button={Button1={Bitmap=;Length=1;Text=ID_TEXT_Horz_Button1;ID=ID_MASK_Test;Kind=1;Active=1}};Vert_Button={Button1={}Button2={}Button3={}Button4={}Button5={}} Wie ihr schon sehen könnt ist das Trennzeichen ein ";".

Dieses Trennzeichen soll durch ein "#13" ersetzt werden um in eine Stringliste geschrieben zu werden (Stringlist.text).

Die Liste soll zum schluss wie folgt aussehen:
Delphi-Quellcode:
Name=ID_STATE_Test
Section=3
Mask=ID_MASK_Testmaske
Previous=
Calc=
Horz_Button={Button1={Bitmap=;Length=1;Text=ID_TEXT_Horz_Button1;ID=ID_MASK_Test;Kind=1;Active=1}};
Vert_Button={Button1={}Button2={}Button3={}Button4={}Button5={}}
mein problem ist, dass ich nicht einfach mit StringReplace nach dem Trennzeichen suchen kann und es durch "#13" zu ersetzen, da es innerhalb von geschwungenen Klammern nicht ersetzt werden soll (z.B. bei "Horz_Button")

Weiss jemand einen Lösungsvorschlag wie ich das machen könnte?
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat