Ładny brzuch
Jak zrobi eby po nacisnieciu buttona program sprawdzal czy memo nie jest puste i wywietlal oknienko z zapytaniem czy chcesz zapisac tresc memo do pliku.
( I odwrotna sytuacja )
napisalem co takiego, program sie kompiluje ale nie dzila jak powinien:
procedure TForm1.SpeedButton4Click(Sender: TObject); begin if application.messagebox('Pole edycyjne nie jest puste! Czy chcesz zapisa tre do pliku?','Czy chcesz zapisa plik?', mb_yesno)= idyes then begin if savedialog1.Execute then pole.lines.savetofile(savedialog1.filename); end; pole.clear; end;
chyba brakuje CI
if Memo1.Text = '' then ....
Jak zrobi eby po nacisnieciu buttona program sprawdzal czy memo nie jest puste i wywietlal oknienko z zapytaniem czy chcesz zapisac tresc memo do pliku.
( I odwrotna sytuacja )
napisalem co takiego, program sie kompiluje ale nie dzila jak powinien:
procedure TForm1.SpeedButton4Click(Sender: TObject); begin if application.messagebox('Pole edycyjne nie jest puste! Czy chcesz zapisa tre do pliku?','Czy chcesz zapisa plik?', mb_yesno)= idyes then begin if savedialog1.Execute then pole.lines.savetofile(savedialog1.filename); end; pole.clear; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
( I odwrotna sytuacja )
napisalem co takiego, program sie kompiluje ale nie dzila jak powinien:
procedure TForm1.SpeedButton4Click(Sender: TObject); begin if application.messagebox('Pole edycyjne nie jest puste! Czy chcesz zapisa tre do pliku?','Czy chcesz zapisa plik?', mb_yesno)= idyes then begin if savedialog1.Execute then pole.lines.savetofile(savedialog1.filename); end; pole.clear; end;
chyba brakuje CI
if Memo1.Text = '' then ....
Jak zrobi eby po nacisnieciu buttona program sprawdzal czy memo nie jest puste i wywietlal oknienko z zapytaniem czy chcesz zapisac tresc memo do pliku.
( I odwrotna sytuacja )
napisalem co takiego, program sie kompiluje ale nie dzila jak powinien:
procedure TForm1.SpeedButton4Click(Sender: TObject); begin if application.messagebox('Pole edycyjne nie jest puste! Czy chcesz zapisa tre do pliku?','Czy chcesz zapisa plik?', mb_yesno)= idyes then begin if savedialog1.Execute then pole.lines.savetofile(savedialog1.filename); end; pole.clear; end;