Gem Delphi 2

Tags:    delphi

Hej Alle.

Jeg har nu indsat på min Gem knap flg.

var
savedlg: TSaveDialog;
begin
Savedlg:= TSaveDialog.Create(self);
Savedlg.Filename:= DateToStr(now);
savedlg.Execute;
end;

Det gør at den selv skriver Datoen i Filnavn feltet når jeg trykker gem, men kan jeg p¨å noget måde får den til at skrive .txt efter Datoen? Sådan at den fx. skriver 02-01-2008.txt ?

Har prøvet flg. men virkede ikke:

Fold kodeboks ind/udKode 




Jeg har lige testet din kode og den virker altså fint i Delphi 7.

Men prøv evt. dette og se om det løser dit problem:

Fold kodeboks ind/udKode 




Hmm, den gør det stadig ikke ? Prøver lige at slette Button og lave den forfra så, kan være det hjælkper hvis den vil i din



Hmm, nu har jeg lavet en helt ny Button, og det virker stadig ikke? ??

Har prøvet begge koder nu? Hva dælen kan jeg gøre forkert ?



Den skriver stadig ikke .txt bagefter ?



Hvis du ændrer din oprindelige kode til:
Fold kodeboks ind/udKode 

Og at du selvfølgelig placerer en TEdit ved navn edit1 på din form. Så vil du kunne se filnavnet på din form i editboxen. Ønsker du efterfølgende at gemme noget med det navn til disk skal du angive:
if savedlg.Execute then
Memo1.Lines.SaveToFile(savedlg.FileName);
// eller hva din komponent nu hedder??




Indlæg senest redigeret d. 21.03.2008 13:32 af Bruger #12143
t