Einzelnen Beitrag anzeigen

Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.682 Beiträge
 
Delphi 5 Professional
 
#9

AW: Auslesen von Buchstaben in Arrays

  Alt 24. Mär 2020, 16:46
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
  Mit Zitat antworten Zitat