delphi - Gem.. - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #11827 @ 02.01.08 12:33

Hmm.. Nu så jeg lige min koe igennem igen, og jeg har indsat flg. kode i en Gem knap.

Kode

var
	savedlg: TSaveDialog;
begin
	Savedlg:= TSaveDialog.Create(self);
	Savedlg.Filename:= DateToStr(now)+'.txt';
  Savedlg.DefaultExt := '.txt';
	savedlg.Execute

Men hvordan ved den at det er mit Memo1 felt jeg vil have til at gemme? Det kan være derfor den ikke virker nemlig. ?

Forstår i hva jeg mener ??

Bruger #84 @ 02.01.08 13:03

205

savedlg.execute viser kun gemme-dialogen, den gemmer ikke noget. Derfor skal du bruge en linie mere til at gemme indholdet af memo1 i en fil med det navn der er vist i dialogen.
Se kodeeksemplet neden for. Det er specifikt de 2 sidste linier du skal se på.

Kode

var
	savedlg: TSaveDialog;
begin
	Savedlg:= TSaveDialog.Create(self);
	Savedlg.Filename:= DateToStr(now)+'.txt';
  Savedlg.DefaultExt := '.txt';
	if savedlg.Execute then
        memo1.lines.savetofile(savedlg.filename);

Bruger #11827 @ 02.01.08 13:19

Tak det virker rigtig fint nu

Gem..

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler