Foros Club Delphi

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

JuanOrtega 26-08-2013 01:44:58

Ayuda con string
 
Hola estoy tratando de meter todo esto en una variable

http://pastebin.com/p5icspv4

El problema es que no cierra bien siempre tira errores por eso queria preguntarles como puedo hacerlo correctamente.

ecfisa 26-08-2013 02:37:21

Hola Lepuke.

¿ De donde, en que formato y cómo obtenes ese contenido ?

Saludos :)

JuanOrtega 26-08-2013 02:41:04

solo es una variable string de la cual creo un archivo de texto tengo pensado usar codigo html y css para escribir en ese archivo html que voy a crear (creo que repeti xD).

nlsgarcia 26-08-2013 06:01:46

Lepuke,

Cita:

Empezado por Lepuke
...es una variable string de la cual creo un archivo de texto tengo pensado usar codigo html y css...

Te sugiero revisar este link:
Espero sea útil :)

Nelson.

ecfisa 26-08-2013 06:10:39

Hola Lepuke.

No sé si te termino de entender, pero para almacenar en la variable de tipo string el contenido del archivo de texto podes hacer:
Código Delphi [-]
function GetStringFromTxt(const FileName: TFileName): string;
begin
  with TStringList.Create do
  try
    LoadFromFile(FileName);
    Result := Text;
  finally
    Free;
  end;
end;
Y para almacenar en el archivo de texto el contenido de la variable de tipo string:
Código Delphi [-]
procedure SaveStringToTxt(const Str: string; const FileName: TFileName);
begin
  with TStringList.Create do
  try
    Text := Str;
    SaveToFile(FileName);
  finally
    Free;
  end;
end;

Ejemplos de uso:
Código Delphi [-]
...
var
  s: string;
begin
   // string a archivo
   SaveStringToTxt(s, 'C:\Carpeta\Cadena1.txt');
  // archivo a string
   s := GetStringFromTxt('C:\Carpeta\Cadena2.txt');
   ...

Saludos :)


La franja horaria es GMT +2. Ahora son las 02:54:33.

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