Einzelnen Beitrag anzeigen

delphifan2004

Registriert seit: 26. Nov 2004
Ort: Dresden
216 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Warum kann ich die Eingaben nicht wieder auslesen

  Alt 26. Okt 2020, 10:58
Hab ich jetzt auch gemacht, die Zeile lautet jetzt

TKey(Items[Index]).AddEntry(Entry);

Wobei ich diese Methode in TKey hinzugefügt habe.

Delphi-Quellcode:
function TKey.AddEntry(AEntry): Integer;
begin
  Result := -1;
  if Assigned(FKeys) then Result := FKeys.Add(AEntry);
end;
So funktioniert nun auch das Einfügen von Keys.

Uns so lese ich aus

Delphi-Quellcode:
    for KeyIdx := 0 to Keys.Count-1 do
    for SubIdx := 0 to Keys.Keys[KeyIdx].InThe.Count-1 do
    begin
      Entr := nil;
      Entr := Keys.Keys[KeyIdx].SubKeys[SubIdx];
      //Keys.Keys[KeyIdx].InThe.FindSubKey('Zweiter Testschlüssel',Entr);
      if Entr <> nil then Writeln('Gefundener Key: ', Entr.Subkey);
    end;
  Mit Zitat antworten Zitat