TStringList bringt mich zum VerZweiFeln

[mkinzler]

Delphi kommt manchmal durcheinander, wenn du es mit unnötigen Blöcke konfrontierst!

[mkinzler]

Doch.

Delphi-Quellcode:

  //3 Neue Vokabeln
  begin // weg
    for iI := 1 to 3 do
    begin
      If (Frame_1.LastVokIndex+1) <= Frame_1.OverAllVok then
      begin
        inc(Frame_1.LastVokIndex);
        Frame_1.SVoksToDo.Add(Frame_1.savestring[Frame_1.savestring.IndexOf('NR' + inttostr(Frame_1.LastVokIndex))+7]);
      end;
    end;
  end; //weg

  //5 aus Aktueller Lektion
  begin//weg
    for iI := 1 to ...

[Spiderpig_GER_15]

wie das denn? Der Compiler arbeitet doch rein logisch, und da ist an den Blöcken doch nichts auszusetzten?

[Matze]

Zitat von Spiderpig_GER_15:

Edit: Die begin/ends sind nicht überflüssig, ich lasse sie lieber da, hab schon zu oft den Fehler gemacht eine If-Anweisung zu schreiben ohne begin/end und es wurde nur die erste Zeile ausgeführt, statt alles was ich eigentlich wollte... So kann ich den Fehler nicht so leicht machen...

Markus meint nicht die begins und ends nach den Schleifen bzw. if-Anweisungen, sondern die außenrum:

Delphi-Quellcode:

begin
  // Schleifen / if-Anweisungen
end;

begin
  // ...
end;

Die kannst du weglassen und machen das ganze optisch ja eher undurchsichtiger.

Grüße

Edit: Der rote Kasten hat heute aber früh Feierabend ...

[mkinzler]

Theoretisch nicht, in der Praxis aber

[Hawkeye219]

Hallo,

die Methode IndexOf() liefert den Wert -1, wenn der übergebene Wert nicht in der Stringliste enthalten ist. Dies dürfte wohl den beschriebenen Fehler auslösen.

Gruß Hawkeye

[Spiderpig_GER_15]

ok, ich lösch jetzt mal alle die so ganz unnötig sind, aber das es dann klappt ist doch eigentlich eher unwahrscheinlich, oder?

[Spiderpig_GER_15]

aber da ist doch garkein indexOf, zumindest nicht direkt, welches meinst du denn?

[mkinzler]

Wie gesagt, gab es hier schon Beispiele im Forum, bei denen diese Nebenwirkungen gehabt haben. Abgesehen davon, dass sie das ganze noch unübersichtlicher machen

[Spiderpig_GER_15]

okay, ich mach sie ja schon weg