problema con saveDialog ..

[tato_pincha87]

Buenas a todos los usuarios de delphi, les comento que soy nuevo en el foro, pero ya estuve leyendo mucho y la verdad que es muy util todo lo que hay aca.

Bueno, mi problema es el siguiente:

Necesito crear un archivo de texto (no con el saveTextFileDialog sino con el saveDialog) y ese archivo que creo, esta asociado a un memo. Pero lo que debo hacer con eso es que el titulo del nombre del archivo que yo voy a crear, me quede en un label, y con lo que yo tengo hecho, me guarda la ruta donde esta el archivo que se guarda. Aca va el codigo de lo que tengo hecho:

procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.FileName);
label1.Caption := SaveDialog1.FileName;
end;
end;

en el label me queda: C:\Documents and settings\....tato.txt

y yo quiero que me quede solamente Tato

Bueno, agradezco cualquier tipo de respuesta que puedan llegar a darme, y si no lo hacen no importa, igualmente gracias por leer.

Cualquier cosa dejo mi mail, tatiinn@hotmail.com , ahh y el delphi que uso es el 2007 for win32.

Un abrazo a todos

[ContraVeneno]

Código Delphi [-]
uses SysUtils
....
Unlabel.Caption := ExtractFileName(SaveDialog1.FileName);
...

Te recomiendo también que leas la guía de estilo de los foros. Aquí no respondemos por correo

[dec]

Hola,

Código Delphi [-]
label1.Caption := ChangeFileExt(ExtractFileName(SaveDialog1.FileName),'');

Contraveneno 1 - dec 0

[[Lepe]]

Empezado por ContraVeneno

Te recomiendo también que leas la guía de estilo de los foros. Aquí no respondemos por correo

... y tampoco por Mensajes privados... antes de que empieces


Saludos

[ContraVeneno]

Diría yo: Dec 1 - ContraVeneno 0

Se me olvidó quitarle la extensión

[tato_pincha87]

gracias a todos los que respondieron! Exelentes las respuestas. Soy novato en delphi :$ . Miles de gracias!

Estamos en contacto