Einzelnen Beitrag anzeigen

KetchUp

Registriert seit: 16. Nov 2018
31 Beiträge
 
#65

AW: Elemente aus TStringList in Laufzeit entfernen

  Alt 21. Nov 2018, 19:18
Ok, ich versuch das jetzt mit Records. Ein Record scheint ja einfach nur den Variablennamen mit einem T davor als Datentyp zu haben. Ich hab das global so Deklariert

Delphi-Quellcode:
    
var
  VocabLanguage: TVocabLanguage;
Compiler meckert aber. "Undeclared identifier" Wie muss ich es denn richtig machen?

Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var
  i: Integer;

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

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

  If GermanEnglish

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

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

Geändert von KetchUp (21. Nov 2018 um 19:23 Uhr)
  Mit Zitat antworten Zitat