Auslesen von Buchstaben in Arrays

[Luckie]

Zitat von marvme02:

Der Denkansatz ist sehr hilfreich, ich probiere das gleich mal aus

Im Prinzip ist es das, was Alallart programmiert hat. Ich hoffe, das hast du gemerkt?

[Dalai]

Für den zweiten Teil der Aufgabe würde ich wohl so vorgehen: Wiederum zwei geschachtelte For-Schleifen, die äußere über das Array, die innere über die einzelnen Strings. Die innere Schleife sollte aber von 1 bis Length(String)-1 (oder von 2 bis Length(String)) gehen. In der inneren Schleife wird der Wert des aktuellen Buchstabens mit dem vorhergehenden verglichen (oder im zweiten Fall mit dem nachfolgenden).

Hier mal die Ausführungen ansatzweise in Code-Form

Delphi-Quellcode:

editstadt.Text:= '';
for i := 1 to max do
    for k := 2 to Length(stadt[i]) do
      if UpCase(stadt[i][k]) = UpCase(stadt[i][k-1]) then
        editstadt.Text:= editstadt.Text + stadt[i][k] + ', ';

Der Code ist ungetestet weil aus dem Kopf getippt. Ich hoffe, dass alles passt und ich nichts übersehen habe, was z.B. zu einer Zugriffsverletzung führen könnte.

Grüße
Dalai

[marvme02]

Zitat von Luckie:

Zitat von marvme02:

Der Denkansatz ist sehr hilfreich, ich probiere das gleich mal aus

Im Prinzip ist es das, was Alallart programmiert hat. Ich hoffe, das hast du gemerkt?

Ja, das habe ich gemerkt wollte nur nochmal meinen Dank aussprechen