4 (2003)

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.

Przykład 6.3.

Napisz procedurę obsługi obsługi zdarzenia OnCl i ck dla polecenia menu z rysunku 3.1 (rozdział 3.) o nazwie Zapisz tekstowy.

Rozwiązanie

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.

Przykład 6.4.

Zastosuj komponent TSaveDialog w procedurze zapisującej zawartość listy TListBo) do pliku.

Rozwiązanie

Wstaw na formularzu komponent TListBox, TButton i TSaveDialog. Treść procedury obsługi kliknięcia przycisku wygląda następująco: