Ĺadny brzuch
Oto co trzeba zrobić żeby po kliknięciu przycisku wypisać dane z F1Book1 do pliku wskazanego za pomocą SaveDialoga:
deklarujemu zmienną globalną "plik1" jako textfile;
Z zakładki "Dialogs" wybieramy "SaveDialog1" a po umieszczenia go na Formie wybieramy opcję "Filter" w Object Inspektorze. Tam w rubryce Filter Name wpisujemy: Pliki tekstowe (*.txt)
a w rubryce Filter: *.txt
Tworzymy Button klikamy dwukrotnie i wpisujemy poniższy kod:
var s:string; i,j:integer; begin if SaveDialog1.Execute then begin AssignFile(plik1,SaveDialog1.FileName+'.txt'); Rewrite(plik1); try for i:=1 to [i][tutaj wprowadzamy ile wierszy chcemy wypisać, może być w postaci zmiennej][/i] do begin for j:=1 to [i][a tutaj ile kolumn][/i] do begin s:=F1Book1.TextRC[i,j]; write(plik1,s+' '); end; writeln(plik1); end; finally CloseFile(plik1); end; end; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
deklarujemu zmienną globalną "plik1" jako textfile;
Z zakładki "Dialogs" wybieramy "SaveDialog1" a po umieszczenia go na Formie wybieramy opcję "Filter" w Object Inspektorze. Tam w rubryce Filter Name wpisujemy: Pliki tekstowe (*.txt)
a w rubryce Filter: *.txt
Tworzymy Button klikamy dwukrotnie i wpisujemy poniższy kod:
var s:string; i,j:integer; begin if SaveDialog1.Execute then begin AssignFile(plik1,SaveDialog1.FileName+'.txt'); Rewrite(plik1); try for i:=1 to [i][tutaj wprowadzamy ile wierszy chcemy wypisać, może być w postaci zmiennej][/i] do begin for j:=1 to [i][a tutaj ile kolumn][/i] do begin s:=F1Book1.TextRC[i,j]; write(plik1,s+' '); end; writeln(plik1); end; finally CloseFile(plik1); end; end; end;