Autor Téma: Zoznam record - je to správne naplnenie zoznamu?  (Přečteno 1101 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5261
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Zoznam record - je to správne naplnenie zoznamu?
« kdy: 14-11-2019, 09:49:44 »
Kód: Delphi [Vybrat]
  1.   PaidDeposit = record
  2.     IDDeposit: Integer;
  3.     Deposit: Currency;
  4.   end;
  5. procedure TfrmMain.btn1Click(Sender: TObject);
  6. var
  7.   lstPaidDeposit: TList<PaidDeposit>;
  8.   Deposit: PaidDeposit;
  9. begin
  10.   lstPaidDeposit := TList<PaidDeposit>.Create;
  11.   Deposit.IDDeposit := 1;
  12.   Deposit.Deposit := 1.1;
  13.   lstPaidDeposit.Add(Deposit);
  14.   Deposit.IDDeposit := 2;
  15.   Deposit.Deposit := 2.2;
  16.   lstPaidDeposit.Add(Deposit);
  17.   ShowMessage(IntToStr(lstPaidDeposit[0].IDDeposit));
  18.   ShowMessage(IntToStr(lstPaidDeposit[1].IDDeposit));
  19. end;
Nikde som to nenašiel. Zobrazujú sa mi správne hodnoty, ale istotu nemám. Len predpokladám, že sa record odovzdávajú hodnotou.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.

Offline vandrovnik

  • Guru
  • *****
  • Příspěvků: 1052
  • Karma: 47
    • Verze Delphi: 10.3
Re:Zoznam record - je to správne naplnenie zoznamu?
« Odpověď #1 kdy: 14-11-2019, 10:18:40 »
Kromě chybějícího try.. finally FreeAndNil(lstPaidDeposit) end; tam problém nevidím.
Pokud budeš ale podle ID chtít rychle vyhledávat a přitom jinak nezáleží na pořadí, můžeš použít tDictionary<integer, currency>.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 5261
  • Karma: 41
    • Verze Delphi: W10 + Delphi 10.4 professional
Re:Zoznam record - je to správne naplnenie zoznamu?
« Odpověď #2 kdy: 14-11-2019, 12:24:52 »
Ďakujem.
Tie chýbajúce veci tam samozrejme doplním. Išlo mi o princíp. Ja to použijem ako zdroj údajov pre update DB tabuľky. Naplním - prečítam - zahodím.
W10 64b, Delphi 10.4, FireBird 3.05
Expert na kladenie nejasne formulovaných otázok.