Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como vinculo los archivos a mi editorde texto (https://www.clubdelphi.com/foros/showthread.php?t=30957)

The_Duke 24-04-2006 18:33:32

como vinculo los archivos a mi editorde texto
 
Hola no se como vincular mi editor de texto asia los archivo que ezijen su ejecusion ose abre el editor pero no carga el texto.. ejemplo
el archivo es tipo *.txt lo abro con mi editor pero no lo carga osea abre la aplicasion .. lo que quiero es como puedo hacer que lo cargue..:confused::confused:

el editor tiene un ++richedit++

dec 24-04-2006 18:37:44

Hola,

Si ya lograste la asociación de la extensión de determinados archivos con tu programa, de manera que este se abre al ejecutar un archivo con la extensión oportuna, tal vez lo que te falta es revisar la variable "ParamStr". En ella tienes los parámetros que se pasan a tu programa al ejecutarse. El parámetro "0", o sea, "ParamStr(0)" será la propia ruta de tu ejecutable, el parámetro "1" , probablemente será la ruta del archivo que tienes que encargarte de abrir.

Sería cuestión, entonces, de revisar la variable "ParamStr" (junto con "ParamCount"), y de abrir en el "TRichEdit" (con el método "LoadFromFile") el archivo que se pase como parámetro a tu programa.

The_Duke 25-04-2006 04:59:15

lo que tengo es esto pero me sale un error diciendo ''El siste,a no puede ayar la ruta espesificada''

procedure TForm1.FormCreate(Sender: TObject);
begin
Modified:=false;
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
SaveDialog1.InitialDir := OpenDialog1.InitialDir;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if (ParamCount >= 1) and (fileExists(paramstr(1))) Then
PerformFileOpen(paramstr(1));
end;


procedure TForm1.PerformFileOpen(const AFileName: string);
begin
RichEdit1.Lines.LoadFromFile(FileName);
RichEdit1.SetFocus;
Modified:=False;
end;

y me da el error que mensione...

Lepe 25-04-2006 11:34:51

pon un ShowMessage al recibir el nombre de archivo.

¿Será por el nombre de archivo mayor a 8 caracteres?

Prueba encerrando el nombre del archivo entre comillas dobles al pasarlo a FileOpen

Saludos y suerte


La franja horaria es GMT +2. Ahora son las 01:52:49.

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