🚀 go-pugleaf

W dniu 2018-03-21 o 12:05, Roman Tyczka pisze:
> On Wed, 21 Mar 2018 03:48:21 -0700 (PDT), ExM wrote:
> 
>>> Nie da się.
>>> Może napisz jaki masz cel, gdzie zmierzasz?
>>
>> Tka w uproszczeniu:
>>
>> Chciałbym umożliwić wczytanie wartości ze zmiennej istniejącej w aplikacji do dynamicznie tworzonego komponentu tEdit.
>> Informacje o tworzonym komponencie oraz tym co ma być wczytane do niego zapisane są w bazie danych.
>>
>> Czyli wczytuje z bazy info:
>> - utwórz komponent TEdit (x,y,with,height)
>> - wczytaj .text wartość zmiennej: 'LiczbaDni'
>>
>> Mogę oczywiście oprogramować dostępne zmienne - ale jeśli okaże się że jakiejś nie oprogramowałem to konieczna będzie aktualizacja aplikacji. Gdyby była jakaś magiczna metoda na dostęp do zmiennych "z automatu" było by prościej.
>>
>> Zastanawiałem się nad rozwiązaniem tego poprzez stworzenie tablic
>> T1 : Array of Variant - gdzie będę przechowywał wartości oraz
>> T2 : Array od String - gdzie będą nazwy zmiennych i wtedy wyszukuje zmienne w T2[x] a w T1[x] mam ich wartości.
>>
>> - tyle że to wymaga oprogramowania każdej zmiennej którą chcę przechowywać oraz aktualizowanie ich wartości przy każdej zmianie.
> 
> Trzymaj te zmienne w rekordzie jako pola i wtedy za pomocą RTTI, jak
> pokazał to Jan, odczytasz i zapiszesz ich wartość.
Po co?

> Choć ten cały pomysł jest ...dziwny, delikatnie mówiąc.
Ano jest.

Takie "cóś"?

procedure TForm54.btn1Click(Sender: TObject);
var
   lDict   : TDictionary<string,Variant>;
   I       : Integer;
   lValue  : Variant;
   lVarName: string;
begin
   // Utwórz słownik, czyli quasi "tablicę asocjacyjną, która w Delphi 
nie istnieje"...
   lDict := TDictionary<string,Variant>.Create;
   try
     // Wczytaj wszsytkie zmienne z "bazy danych"
     for I := 0 to 100 do
     begin
       lVarName := 'zmienna_' + IntToString(I);
       lDict.AddOrSetValue(lVarName, i);
     end;

     // Pobierz zmienną ze słownika
     if lDict.TryGetValue('zmienna_34', lValue) then
       // jeśli istnieje, to przepisz jej wartość do TEdit
       ed1.Text := VarToStrDef(lValue, 'pusto')
     else
       // jeśli nie istnieje, to napisz, że nie istnieje...
       ed1.Text := 'brak zmiennej';
   finally
     lDict.Free;
   end;
end;

Szybko (duuuużoooo szybciej niż RTTI) i prosto.

Tylko dalej nie wiem po co?

-- 
wloochacz