Salvando texto com o SaveDialog !

[webrodex 0]

Estou usando o seguinte comando so que tipo ele fala que quer susbistituir o arquivo mas nao consigo fazer ele aparecer o nome do arquivo no messagebox ja tentei de varios geitos

 

+ pchar(SaveDialog.FileName) +

 

+ (SaveDialog.FileName) +

 

Como eu faço ?

 

 

 

procedure Tsalinha.SalvarClick(Sender: TObject);beginSaveDialog.Title := 'Salvar mensagem do chat';SaveDialog.DefaultExt:= 'doc';SaveDialog.Filter:='*.doc';if SaveDialog.Execute thenbeginif FileExists(SaveDialog.FileName) thenif Application.MessageBox('Atenção esse arquivo já exite deseja subistituir?'#13''#13' + pchar(SaveDialog.FileName) +	','Aviso',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;sala.plaintext:= true;sala.Lines.SaveToFile(SaveDialog.FileName);end;end;

[Hugo Slepicka 0]

Showmessage(ExtractFileName(SaveDialog1.FileName));

 

ta ai...

 

 

agora se voc~e quiser o caminho completo ai faz assim:

 

Showmessage(ExtractFilePath(SaveDialog1.FileName));

 

flw aew!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

[webrodex 0]

ja tentei assim tbif Application.MessageBox('Atenção esse arquivo já exite deseja subistituir?'#13''#13' + ExtractFileName(SaveDialog1.FileName) ','VejoTi',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;Assim tbif Application.MessageBox('Atenção esse arquivo já exite deseja subistituir?'#13''#13' ExtractFileName(SaveDialog1.FileName) ','VejoTi',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;Como arrumo isso ? please

[welber-infosoftware 0]

Muda para para MessageDlg que o código abaixo resolve o seu problema:

if(MessageDlg('Atenção esse arquivo já exite deseja subistituir?'+#13+#13+ExtractFileName(SaveDialog1.FileName),mtconfirmation,[mbYes,mbNo],0)=mrYes) then//salvar o arquivoelse //não salver

Lembra daquele episodio do chaves onde perguntão quanto são duas maçãs mais duas maçã e ele diz que só aprendeu com laranja, acho que foi o que eu fiz mas enquanto não resolve com a application.message o messagedlg vai quebrando seu galho.Boa Sorte, qualquer duvida estamos ai.

[Vinicius Callegaro 0]

Dê uma olhada na declaração:

function TApplication.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;

Você estava passando o parâmetro 'VejoTi' onde era para ter apenas Flags. E estava errando nos #13. Por isto, se quiser ainda assim utilizar o Application.MessageBox, troque seu código para:

if Application.MessageBox('Atenção esse arquivo já exite deseja substituir?'+#13+#13+ ExtractFileName(SaveDialog1.FileName),MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;

PS: Para facilitar a resposta a sua dúvida, poste sempre a mensagem de erro dada pelo Delphi :)

PS2: substituir Hehe

[webrodex 0]

E o seguinte tou usando esse comando so que nao ta dando certo abaixo estara a foto oque ta ocorrendo

 

 

procedure TForm1.SalvarClick(Sender: TObject);begin// Salvando o texto //SaveDialog.Title := 'Salvar mensagem do chat';SaveDialog.DefaultExt:= 'doc';SaveDialog.Filter:='*.doc';if SaveDialog.Execute thenbeginif FileExists(SaveDialog.FileName) thenif Application.MessageBox('Atenção esse arquivo já exite deseja subistituir?'+#13''#13' + ExtractFileName(SaveDialog1.FileName)	','Mensagem',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;texto.plaintext:= true;texto.Lines.SaveToFile(SaveDialog.FileName);end;end;

Segue a foto

 

[Vinicius Callegaro 0]

Cara, tu tem que ler o que nós respondemos. Acabei de te responder isto, mas vamos lá...

 

if Application.MessageBox('Atenção esse arquivo já exite deseja substituir?'+#13+#13+ ExtractFileName(SaveDialog1.FileName),MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;

[webrodex 0]

Cara ta dando erro na , depois do final do ExtractFileName(SaveDialog.FileName),

 

Application.MessageBox('Atenção esse arquivo já exite deseja substituir?'+#13+#13+ ExtractFileName(SaveDialog.FileName),MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;

[Vinicius Callegaro 0]

if Application.MessageBox(PChar('Atenção esse arquivo já exite deseja substituir?'+	  #13+#13+ExtractFileName(SaveDialog.FileName)),'Aviso',MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION) = mrNo then Exit;

Não querendo ser repetitivo, mas já sendo,Para facilitar a resposta a sua dúvida, poste sempre a mensagem de erro dada pelo Delphi. Isto só vai te ajudar http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif