bis zu einem bestimmten zeichen suchen?

[shadow999]

hallo delphipraxis

wie kann ich in einem string der beispielsweise
'1 2 3 4 5'
es hinbekommen dass ich bei 1 anfange bis zu einem bestimmten zeichen, zum beispiel 3, zu suchen?

mit AnsiPos hab ich es nicht hinbekommen

[Nuclear-Ping]

Delphi-Quellcode:

for a := 1 to Length (String) do
  if (String[a] = DeinZeichen) then
    Gefunden;

[SirThornberry]

am einfachsten geht es mit pos (wobei ansipos ebenso einfach funktionieren sollte). Wenn du es nicht hinnbekommst sage einfach wie du es versucht hast und wir sagen dir was daran falsch ist

[Nuclear-Ping]

So wie ich es verstanden habe, will er "ab ..." suchen, bzw. hat das vor. Bei Pos / AnsiPos müsste er den String danach trimmen, damit die Funktionen nicht wieder vom Anfang an starten.

[shadow999]

ok. danke.

ist das selbe auch möglich mit zb.
wenn ich einen string mit
'ABCDEF' habe

von A bis D zu suchen?

[SirThornberry]

ja, es geht mit beliebigen zeichen.

[shadow999]

"for a := 'A' to Length(String) do"

das mit dem length(string) stört mich etwas..

denn in meinem programm weis man ja nicht, wielang dieser string ist odr sein kann.

[SirThornberry]

stop - versuche den Quelltext zu verstehen. Die schleife muss immer von 1 los laufen. Schließlich willst du ab dem ersten zeischen sucben und nicht ab dem Aaaten.

[shadow999]

for a := 1 to 4 do

ok.. aber das kann ich ja schlecht nehmen denn man weis ja nicht
wielang der string nun ist..

da ist noch ein problem.

der sucht dann aber, wenn irgentwo im text A steht, nicht ab dem A sondern ab der aller ersten position im memo.

[SirThornberry]

genau. Mit der Funktion Length kannst du aber die länge des Strings ermitteln.
Wenn dein String also von 1 bis Length(DeinString) geht und dein String 5 zeischen lang ist geht die Schleife von 1 bis 5.

Schaue dir am besten mal auf http://www.dsdt.info/grundlagen/ die Grundlagen an.

[Edit]
Wenn du ab dem A und nicht ab dem ersten A suchen willst musst du trotzdem das erste A finden damit du weißt ab wo du suchen musst
[/Edit]