Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   problema con saveDialog .. (https://www.clubdelphi.com/foros/showthread.php?t=54651)

tato_pincha87 26-03-2008 16:03:22

problema con saveDialog ..
 
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, [email protected] , ahh y el delphi que uso es el 2007 for win32.

Un abrazo a todos

ContraVeneno 26-03-2008 16:19:22

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 26-03-2008 16:22:54

Hola,

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

Contraveneno 1 - dec 0 ;)

Lepe 26-03-2008 16:26:30

Cita:

Empezado por ContraVeneno (Mensaje 275360)
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 :D


Saludos

ContraVeneno 26-03-2008 16:30:35

Diría yo: Dec 1 - ContraVeneno 0

Se me olvidó quitarle la extensión :D

tato_pincha87 26-03-2008 17:24:12

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

Estamos en contacto


La franja horaria es GMT +2. Ahora son las 12:29:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi