Tenta assim
SimpleDataSet1ANEXO.LoadFromFile(ExtractFileName(OpenDialog1.FileName));
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Levi Ribeiro de Freitas
Enviada em: terça-feira, 23 de agosto de 2005 09:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Bom dia pessoal!
Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando
sempre vem o diretório + o nome do arquivo.
Alguém tem idéia de como posso fazer para pegar somente o nome?
Eis o código:
//coloco o arquivo dentro de um campo da tabela firebird.
procedure TForm1.Button1Click(Sender: TObject);
begin
if DataSource1.State in [dsEdit, dsInsert] then
if OpenDialog1.Execute then
begin
SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName);
SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar
somente o nome do arquivo não o diretório onde ele está.
end;
end;
//preciso salvar o arquivo agora.
procedure TForm1.Button2Click(Sender: TObject);
begin
if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull =
False then
begin
SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value;
if SaveDialog1.Execute then
SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName);
end;
end;
Atenciosamente,
Levi Ribeiro de Freitas
Programador de Computadores
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ NOD32 1.1199 (20050822) Information __________
This message was checked by NOD32 antivirus system.
http://www.nod32.com
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
