Position von Zeichen mit Komma ausgeben

basti_G · Hält's aus hier Beiträge: 8

folgendes problem stellt sich mir:

ich gebe eine zeichenkette in ein editfeld ein, in ein anderes einen buchstaben! klicke dann auf meinen button "auswerten" und folgendes soll passieren: in einem weiteren editfeld soll ausgegeben werden, wie oft der gesuchte buchstabe in der zeichenkette vorkommt, in einem nächsten soll ausgegeben werden wie lang die zeichenkette insgesamt ist ---> bis hier funktioniert alles!

jetzt mein problem: in einem letzten editfeld sollen die stellen ausgegeben werden (mit komma getrennt), an denen der gesuchte buchstabe in der zeichenkette vorkommt ! --> bloß wie ist der befehl dafür???

wäre für hilfe sehr dankbar!

Ehemaliges Mitglied Erhaltene Danke: 1

Wenn Du sowieso schon die Zeichenkette durchläufst (for-Schleife?), kannst Du die gefundene Position doch gleich an den letztlich auszugebenden String anhängen.

basti_G · Hält's aus hier Beiträge: 8

ja, sowas hab ich mir auch schon gedacht, aber irgendwie komme ich nicht auf den befehl, den ich da noch brauche!

LexXis · Beiträge: 170 Erhaltene Danke: 3

Du hast ja schon die Laufvariable der for-schleife, sprich: die aktuelle Position. Jetzt mach dich noch über IntToStr schlau, dann dürfte sich der Rest von allein ergeben.

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Also wenn ich das Problem jetzt gerade richtig überblicke, dann müsste es doch so gehen:

markieren

Delphi-Quelltext

1:
2:

if Zeichenkette[momentanePosition]=gesuchterBuchstabe then
      EditAnWelchenStellen.Text:=EditAnWelchenStellen.Text+IntToStr(momentanePosition)+',';

...vorausgesetzt, Du nutzt die Variable momentanePosition als Schleifen-Variable.

Ehemaliges Mitglied Erhaltene Danke: 1

So ähnlich würde ich das auch machen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

AusgabeString := '';
for i := 1 to Length(StringVariable) do
  if StringVariable[i] = Zeichen then
    begin
      if Length(AusgabeString) = 0 then
        AusgabeString := IntToStr(i)
      else
        AusgabeString := AusgabeString + ',' + IntToStr(i);
    end;

basti_G · Hält's aus hier Beiträge: 8

jo, vielen dank jetzt funzt es ... irgendwie stand ich auf dem schlauch, zwecks den string anhängen!

vielen dank nochmal und schönes WE!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme