Nach dem ersten buchstaben in einem String suchen

[Dragon27]

Hallo, ich habe eine Frage zu diesem Code:

Code:

StartPos := Pos(#32, flStrList[Zahl]);

der funktioniert ja einwandfrei aber ich bräuchte dann noch eine Procedure die mir dann danach die position des ersten Buchstaben sagt bzw. des ersten Zeichens.

Zitat:

Also so: (_ = Leerzeichen)

152______Wort // Die zahlen können auch wesentlich länger sein und die leerzeichen sind dann variabel


und ich will dann die position von dem W haben.

die Procedure oben giebt mir die position hinter der Zahl zurück und nun soll er mir aber sagen wann das eigentliche wort beginnt (vorne ohne leerzeichen).

Danke für die Mühe

Gruß

Andy

[Christian Seehase]

Moin Andy,

wenn sich er nur aus einer Zahl unbekannter Länge, dann einer unbekannten Anzahl Blanks und dann dem Wort besteht, also anschliessend keine Blanks mehr folgen können, könntest Du das ganz mit der Funktion LastDelimiter hinbekommen.

[Dragon27]

hallo,

nein sorry muss dich enttäuschen, die Zeile hat mehrere Wörter bzw. der String.
giebts denn da wirklich keine Möglichkeit?

danke

[Christian Seehase]

Moin Andy,

schade, dann wirst Du wohl nicht umhinkommen mit pos das erste Blank zu suchen, und ab dieser Stelle das erste Zeichen ungleich Blank zu suchen.

[Dragon27]

hallo,


danke für die schnelle Antwort könntest du mir da noch sagen wie ich das anstellen soll? Hab damit net so viel ahnung


danke

[Christian Seehase]

Moin Andy,

das könnte z.B. so aussehen:

Delphi-Quellcode:

var
  iStartPos : integer;

//...

  iStartPos := Pos(#32, flStrList[Zahl]);
  while flStrList[Zahl][iStartPos] = #32 do inc(iStartPos);

Unter der Annahme, dass auf das erste Blank im String garantiert ein Zeichen ungleich Blank folgt geht es so ohne Sicherheitsabfrage.
Ich bin davon ausgegangen, dass flStrList in irgendeiner Form ein Array mit Strings ist, z.B. TStringList.