[Delphi] Save to File

[smctainsh]

Hi All,

I have searched all over the internet for a solution to my problem, but I can't find it. How would I go about saving to a file? I managed to get it to carry out a Save As function with this code:

if SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);

I want it to carry out a Save function, so that if an existing file is already open, the user can save to that file, without having a specify a name in the Save As Dialog.

Thanks in advance,

Smctainsh

[AndreasV]

Memo1.Lines.SaveToFile(SaveDialog1.FileName); would do.

[smctainsh]

  AndreasV said:

Memo1.Lines.SaveToFile(SaveDialog1.FileName); would do.

I tried that, but it doesn't seem to work. I get an error saying "Cannot create file """.

I want the button to double as a save and save as function - so, I want it to show the Save dialog if the file has not yet been saved, and save to the file if it is already saved.

Smctainsh

[AndreasV]

if SaveDialog1.FileName = "" or SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

[smctainsh]

  AndreasV said:

if SaveDialog1.FileName = "" or SaveDialog1.Execute then

Memo1.Lines.SaveToFile(SaveDialog1.FileName);

I get an error for "" - it says 'Illegal Character in Input File'.

Smctainsh

P.S. Thanks for the quick responses. :D

[+virtorio MVC]

  smctainsh said:

I get an error for "" - it says 'Illegal Character in Input File'.

Smctainsh

P.S. Thanks for the quick responses. :D

Use the a single quote ' not the double quote ".

if SaveDialog1.FileName = '' or SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);

[smctainsh]

  virtorio said:

Use the a single quote ' not the double quote ".

if SaveDialog1.FileName = '' or SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Now I am getting a Boolean Error. :( It says that string and boolean are incompatible types.

Smctainsh

[+virtorio MVC]

if (SaveDialog1.FileName = '') or SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Sorry, my mistake.

[smctainsh]

  virtorio said:

if (SaveDialog1.FileName = '') or SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Sorry, my mistake.

When I save the file, the Save As Dialog appears, even once I have already specified a file name for it.

Smctainsh

[AndreasV]

Well, you got the general idea here. Now try to make something out of it yourself.

[+virtorio MVC]

  smctainsh said:

When I save the file, the Save As Dialog appears, even once I have already specified a file name for it.

Smctainsh

I must admit that I never actually read the code, just looked at the syntax. It should read

if (SaveDialog1.FileName <> '') or SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName)

<> meaning not equal to. Personally I think storing the filename in a SaveDialog is a bad idea, and should be stored in a variable somewhere, most likely as a member of the form you have your Memo control on.

[smctainsh]

  virtorio said:

I must admit that I never actually read the code, just looked at the syntax. It should read

if (SaveDialog1.FileName <> '') or SaveDialog1.Execute then
  Memo1.Lines.SaveToFile(SaveDialog1.FileName)

<> meaning not equal to. Personally I think storing the filename in a SaveDialog is a bad idea, and should be stored in a variable somewhere, most likely as a member of the form you have your Memo control on.

Thank you so much, virtorio! All help received from anyone in this thread has been very much appreciated. :D

Smctainsh