logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Jak wczytać plik txt na formie2 po kliknięciu przycisku w Delphi v6.0?

erwinm 08 Mar 2006 13:35 1176 2
REKLAMA
  • #1 2389612
    erwinm
    Poziom 13  
    Posty: 130
    Pomógł: 1
    Ocena: 19
    Witam

    Mam mały problem. Tworzę taką małą baże danych w Delhi v6.0.
    Nie mogę uzyskać takiego efektu:
    Mam formę1 a na niej buton.
    Chcę aby po naciśnięciu buton pokazała mi się forma2 (to już mam) ale chcę aby na tej formie2 został od razu wczytany plik txt.
    Kombinowałem już niejednokrotnie
    Zaznaczam że zaczynam dopiero zabawę w Delhi i Twoja pomoc będzie niezbędna.

    Pozdrawiam
    Moderowany przez TONI_2003:

    Przeniesiono z Komputery Hardware ! Temat zmieniłem.

  • REKLAMA
  • #2 2389839
    polonus
    Poziom 16  
    Posty: 137
    Pomógł: 16
    Ocena: 6
    Wczytanie z pliku musisz powiązać z Buttonem z Form1.

    Tuż po Var w obu Formach powinieneś posiadać:

    implementation

    Uses Form1, Form2;


    A przy zdarzeniu TForm1.ButtonClick:

    Assignfile(plik, extractfilepath(application.exename)+'plik.txt');
    Reset(plik);
    Read(plik, zmienna);
    Closefile(plik);


    Gdzie zmienna to zmienna łańcuchowa, do której wczytany będzie tekst.

    Zaś w Var:

    Plik: textfile;

    To, gdzie ma być wyświetlona zawartość pliku txt zależy już od Ciebie.

    Możliwe, że trochę zamieszałem ale dawno się tym już nie bawiłem. Nazwy form, zmiennych itp. mogą być inne.
  • #3 2390796
    ScorpiusPL
    Poziom 10  
    Posty: 54
    Ocena: 8
    Cytat:
    Wczytanie z pliku musisz powiązać z Buttonem z Form1.


    Hmmm.... u mnie też już trochę minęło jak robiłem coś w Delphi, ale jeśli dobrze kojarzę, to łatwiej będzie "wsadzić" kod odpowiedzialny za otwieranie pliku tekstowego do zdarzenia OnCreate dla Form2 tzn:

    mamy Form1; na Form1 jest Button1; Button1 po naciśnięciu otwiera Form2; (to jest :P)
    i teraz dla Form2 idziemy do Object Inspector i klikamy zakładkę Events;
    na liście zdarzeń, jednym z kolei jest OnCreate; klikamy dwa razy na pole po prawej i w kodzie źródłowym (chyba głównego dla całego programu modułu (niestety nie pamiętam dokładnie za co przepraszam)) powinna pojawić się procedura:

    procedure TForm2.FormCreate(Sender: TObject);
    begin

    end;

    wystarczy teraz kod odpowiedzialny za otwarcie i wyświetlenie pliku tekstowego (np. na Form2) wpisać do tej procedury.

    Pozdrawiam.
REKLAMA