84 Aplikacje w Delphi. Przykłady
//czytanie pliku tekstowego do pola TMemo procedurę TForml.ButtonlClickCSender: TObject); begin
Opendi al ogl.InitialDi r:='C;\teksty':
if Opendialogl.Execute then Memol.Lines.LoadFromFile(Opendialogl.FileName) else ShowMessage('Nie wybrano pliku!'); end;
Możemy zapisać tekst z pola TMemo do pliku, dokonując następujących zmian w powyższej procedurze: należy zastąpić Opendi al ogl obiektem SaveDialogl i LoadFromFile metodą SaveToFile. Wcześniej trzeba wstawić z zakładki Dialogs komponent TSave-Dialog.
Treść tej procedury można również wpisać w procedurze obsługi zdarzenia OnClick dla polecenia menu z rysunku 3.1 (rozdział 3.) o nazwie Czytaj tekstowy.
Napisz procedurę obsługi obsługi zdarzenia OnCl i ck dla polecenia menu z rysunku 3.1 (rozdział 3.) o nazwie Zapisz tekstowy.
Wstaw na formularzu komponent TSaveDi al og.
Właściwości DefaultExt przypisz txt, wtedy rozszerzenie ,txt będzie automatycznie dopisywane do nazwy wprowadzonej w oknie do zapisywania pliku.
Rozwiń właściwość Options i ustaw opcję ofOverwritePrompt na true. To ustawienie spowoduje, że przy próbie zapisu pliku o nazwie, która już istnieje, pojawi się okno z tą informacją i zapytaniem, czy zapisać ten plik.
A to treść procedury obsługi polecenia menu o nazwie Zapisz tekstowy.
procedurę TForml.ZapisztekstowylClick(Sender: TObject); begin
if Savedialogl.Execute then Memol.Lines.SaveToFile(Savedialogl.FileName); end;
Procedura spowoduje zapisanie do pliku tekstowego zawartości edytora TMemo.
Zastosuj komponent TSaveDialog w procedurze zapisującej zawartość listy TListBo) do pliku.
Wstaw na formularzu komponent TListBox, TButton i TSaveDialog. Treść procedury obsługi kliknięcia przycisku wygląda następująco: