Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Zitat von EWeiss:

Vocabulary:= TStringList.Create;

Aber das hab ich doch schon.

Delphi-Quellcode:

 
  Vocabulary:= TStringList.Create;
  Vocabulary.LoadFromFile('Vocabulary.txt');

  RandomNumber:= random(Vocabulary.Count);
  L_RemainingWords.Caption:= 'Verbleibende Vokabeln: '+IntToStr(Vocabulary.Count);

  If GermanEnglish

  Then
    try
      for i:= 0 to Vocabulary.Count - 1 do
        Begin
          Vocab:= TVocab.Create;
          Vocab.English:= Vocabulary.Names[i];
          //Vocab.SolvedCount:= 0;
          Vocab.German:= Vocabulary.ValueFromIndex[i];
          Vocab.Repetitions:= RepititionValue[i];
          List.Add(Vocab);

          L_UnknownWord.Caption:= Vocab.English[RandomNumber];
          L_CorrectAnswer.Caption:= '';
        End;
      finally
    end

Brauche ich denn Vocab:= TVocab.Create; , List.Add(Vocab); und Vocab.SolvedCount ?

Ich müsste doch alles damit regeln können.

Delphi-Quellcode:

  type
    TVocab = record
    German, English: string;
    Repetitions: Integer;
  end;