Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Strings zusammenfügen und Trennen


basner - Do 04.06.09 09:00
Titel: Strings zusammenfügen und Trennen
Hallo und guten Morgen.


Ich habe folgendes Problem.

Ich möchte von einem String nach bestimmten Kriterien etwas abschneiden und den abgeschnittenen Teil an einen anderen anfügen.

Ein Bsp:

Ausgang:

AutoPrima Opel

Und ich möchte jetzt Auto an Opel ranhängen. Könnt ihr mir einen Weg zeigen, das soll aber nur passieren wenn in den ersten beiden Wörtern keine Leerzeichen vorkommen.

Vielen Dank


Blackheart666 - Do 04.06.09 09:08

Schau mal dort, da findest du alles dazu.
http://delphi.about.com/od/beginners/l/blrtlstringhand.htm


basner - Do 04.06.09 10:03

Vielen Dank.

Werde ich mir gleich mal genauer anschauen.


Lannes - Do 04.06.09 12:12

Hallo,

versuchst Du immer noch eine binäre Datei über Stringfunktionen auseinander zu pflücken. :wink:

zu Deinem Problem:
1. den String bei dem Leerzeichen trennen und in Variablen merken
'AutoPrima'
'Opel'
2. im String 'AutoPrima' ab dem zweiten Zeichen den ersten Großbuchstaben suchen
3. ab der gefundenen Position String auftrennen
4. gefundene Strings zusammenfügen

Den Großbuchstaben im String kannst Du wie folgt ermitteln:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
i := 2;
while (i <= Length(s)) and (not (s[i] in ['A'..'Z'])) do
  inc(i);
if i > length(s) then
  showmessage('kein Großbuchstabe nach Zeichen 1')
  else
    showmessage('ersten Großbuchstaben bei Position '+IntToStr(i)+' gefunden');


basner - Do 04.06.09 12:57

Hallo.


Habe das erste Problem gelöst und dieses auch. Vielen Dank für Eure Hilfe.