Problem bei TStringList

[Namenloser]

@Sir Rufo: Dein Code ist jetzt aber falsch, weil die übrigen Labels nicht ausgeblendet werden bei AValues.Count <= 4.

[Popov]

Dann kann man den Teil

Delphi-Quellcode:

    StringRoh := AValues[LIdx];
    Zeit := Copy(StringRoh, 1, 5);
    Info := StringRoh;
    if Length(StringRoh) > 6 then 
      Delete(Info,1,6);

    Labels[LIdx].Caption := (Zeit + ' - ' + Info);

so ankürzen:

Delphi-Quellcode:

      StringRoh := AValues[LIdx];
      Labels[LIdx].Caption := Copy(StringRoh, 1, 5) + ' - ' + IfThen(Length(StringRoh) > 6, Copy(StringRoh, 7, MaxInt), StringRoh);

U. U. kann man noch AValues[LIdx] noch gegen StringRoh tauschen, dann ist das alles nur noch eine Zeile.

[DeddyH]

Zitat von Popov:

U. U. kann man noch AValues[LIdx] noch gegen StringRoh tauschen, dann ist das alles nur noch eine Zeile.

Und wenn man dann nach einem halben Jahr etwas ändern will, braucht man eine halbe Stunde, um den Code zu begreifen