Thema: Delphi String abschneiden #0

Einzelnen Beitrag anzeigen

Benutzerbild von Martin K
Martin K

Registriert seit: 20. Okt 2005
919 Beiträge
 
Turbo Delphi für Win32
 
#1

String abschneiden #0

  Alt 23. Jun 2006, 18:25
Hi,

wie kann ich bei einem String die Begrenzungszeichen (oder wie das heißt, also #0#0...) abschneiden?
Der String liegt mir im folgenden Format vor:

'MeinString'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 #0#0#0#0#0#0#0#0#0#0#0#0
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0 #0#0#0#0#0#0#0#0#0#0#0'Ø5'
#0#1#0#0#0#$C'fE'#0#$C'fE'#0#$18#$10#0#0'rm1'#5'Fo rm1'#4'Left'#3'À'#0#3'Top'
#2'k'#5#0#0'dtÐ%'#0'Ð%'#0'ð'#$F#0#0'€'#2#7'Capti on'#6#5'Form1'#5'Color'#7
#9'clBtnFace'#$C'Font.Charset'#7#$F'DEFAULT_CHARSE T'#$A'Font.Color'#7#$C'clWindowTex'

Keine Ahnung was das Zeugs dahinter alles ist, mir geht es nur um den eigentlichen String: 'MeinString'

Gibt es dafür eine Funktion?

Momentan mache ich das so:
SetLength(s, Pos(#0, s) -1); aber ich denke, das ist nicht die beste Methode

[edit=Admin]Zeilenumbrüche eingefügt, um Scrollbalken zu vermeiden. Mfg, Daniel[/edit]
Mit den Menschen ist es wie mit Computern -
es gibt Nullen und Einsen.
  Mit Zitat antworten Zitat