Elemente aus TStringList in Laufzeit entfernen

[DieDolly]

Zitat:

Ok, ich versuch das jetzt mit Records. Ein Record scheint ja einfach nur den Variablennamen mit einem T davor als Datentyp zu haben

Hättest du dir mein Beispiel vor langer Zeit wenigstens angeguckt dann wüsstest du, dass das nicht der Wahrheit entspricht.

Ruder mal ein paar Seiten zurück und ließ dir alles durch was du finden kannst.

[KetchUp]

Ok, Deklaration klappt.

Delphi-Quellcode:

  private
    { Private declarations }
  public
    { Public declarations }
  type
    TVocab = record
    German, English: string;
  end;

  var
    Vocab: TVocab;
    Vocabulary: TStringList;
    RandomNumber, Abfragen: Integer;
    jpgFlag, jpgCorrect, jpgWrong: TJpegImage;
    StartTime: TDateTime;
    Duration: TDateTime;
  end;

So ganz Unrecht hatte ich nicht, musste nur type auf record setzen.

Delphi-Quellcode:

  If GermanEnglish

  Then
    try
      L_HeadingTrainerDescription.Caption:= 'Deutsch -> Englisch | '+IntToStr(Repititions)+' Wiederholungen | 10 Vokabeln';

      for i:= 0 to Vocabulary.Count - 1 do
        Begin
          Vocab:= TVocab.Create;
          Vocab.English:= Vocabulary.Names[i];
          Vocab.German:= Vocabulary.ValueFromIndex[i];
          Vocab.SolvedCount:= 0;
          L_UnknownWord.Caption:= Vocab.English[RandomNumber];
          L_CorrectAnswer.Caption:= '';
        End;
      finally
    end

Jetzt hängt es am "TVocab.Create;". Das verstehe ich noch nicht.

[DieDolly]

Records alleine bringen dir nichts. Du brauchst auch eine Liste wo du die reinstecken und von abfragen kannst.