Mam następujący kod w unit1:
wsad.Clear; //czyszczenie przed przeoszeniem zmienne wsad : TStrings
form3.Memo1.Refresh;
form3.Refresh; //odświerzanie (dodałem, by sprawdzić, czy nie zakończy problemu, bezskutecznie)
sleep(10);
for i := 0 to form3.Memo1.Lines.Count - 1 do
wsad.Add(form3.Memo1.Lines[i]); //przenoszenie
Form3 jest w unit3.
I problem jest następujący:
w memo ustawiony jest pewien tekst domyślnie (ustawiany przy pisaniu programu).
Kiedy próbuję przenieść ten tekst do "wsad" przenosi się bez zarzutu.
Jednak, kiedy zmienię (dokonam edycji) tekst (w memo) podczas działania programu, przy
przeniesieniu przenoszony jest domyślny, a nie ten, który edytowałem.
W skrócie: Zawsze przenosi się tekst ustawiony domyślnie niezależie, co pisze w memo.
formularz i zmienną tworzę w następący sposób:
initialization
wsad := TStringList.Create;
form3 := Tform3.create(application);
form3.show; //nie wiem, czy ma to coś wspólnego, ale piszę, gdyby się przydało