String mayor a 255 para record

[totote]

Buenas gente, necesito guardar en un archivo de registro tres datos, un título un link a un sitio de internet y una descripción que es un código html, pero resulta que la descripción por lo general tiene más de 255 caracteres y ahí es cuando se me complica, hay a alguna forma de extender el tamaño de los String?

mi registro está compuesto de la siguiente forma

Código Delphi [-]
THistorial = record
    Titulo: String[255];
    Link: String[255];
    Descripcion: String[255];
  end;

Saludos

[dec]

Hola,

No sé si dependerá de alguna directiva de compilación o algo así, pero, yo puedo declarar el tipo tal que así, sin problemas:

Código Delphi [-]
type
  THistorial = record
    Link: String;
    Titulo: String;
    Descripcion: String;
  end;

Creo que Delphi es muy capaz de trabajar con algo así. No sé si algún otro compañero podrá añadir algo al respecto.

[totote]

lo intenté, pero cuando declaro un archivo del tipo registor me devuelve este error

[DCC Error] Principal.pas(165): E2155 Type 'THistorial' needs finalization - not allowed in file type

para declarar uso este código

Código Delphi [-]
var
   Reg: file of THistorial;
begin
//....
end;

[dec]

Hola,

Hum... me temía algo así... pero, como no especificaste si era un tipo para usar en un archivo (o no leí bien tu mensaje), por eso dije lo que dije... pero, sí es cierto que me suena alguna limitación en el caso que dices. Lamento no poder darte ninguna solución en este caso: no tengo idea de si sería posible, o tendrías que conformarte con los 255 caracteres (supongo que no...), lo lamento de veras.

[DarkMan]

Realmente si es necesario especificar un límite en cada string, de lo contrario cada registro tendría un tamaño diferente, es por ello que depende de la longitud de los strings que contenga. Puedes probar a usar AnsiString en lugar de String:

Código Delphi [-]
THistorial = record
    Titulo: String[255];
    Link: String[255];
    Descripcion: AnsiString[1000];
  end;

Para comprobar lo que digo, prueba a ver el tamaño de las dos estructuras (la que tu mostraste, y la de Dec) con SizeOf() y notarás la diferencia.

Un saludo.

[totote]

Bueno dec gracias igual, he puesto una solución temporlamente para siempre hasta que encuentre algo mejor, pero el registro me ha quedado así

Código Delphi [-]
THistorial = record
    Titulo: String[255];
    Link: String[255];
    D1: String[255];
    D2: String[255];
    D3: String[255];
    D4: String[255];
  end;

y para separarlo lo hago de esta forma

Código Delphi [-]
procedure GuardarHistorial;
var
  Reg: file of THistorial;
  Historial: THistorial;
  LHistroial: TLink;
  i: Integer;
  aux: String;
begin
  AssignFile(Reg,Opciones.AppDir + 'Historial.dat');
  Rewrite(Reg);
  //....
      if Length(aux) > 255 then
      begin
        Historial.D1:= Copy(aux,1,255);
        Delete(aux,1,255);
        if Length(aux) > 255 then
        begin
          Historial.D2:= Copy(aux,1,255);
          Delete(aux,1,255);
          if Length(aux) > 255 then
          begin
            Historial.D3:= Copy(aux,1,255);
            Delete(aux,1,255);
            Historial.D4:= aux;
          end
          else
            Historial.D3:= aux;
        end
        else
          Historial.D2:= aux;
      end
      else
        Historial.D1:= aux;
      Write(Reg,Historial);
//...
  CloseFile(Reg);
end;

[totote]

DarkMan, me devuelve este error si lo hago de tu forma

[DCC Error] Principal.pas(294): E2029 ';' expected but '[' found

[DarkMan]

Empezado por totote

DarkMan, me devuelve este error si lo hago de tu forma

[DCC Error] Principal.pas(294): E2029 ';' expected but '[' found

Vaya, tienes razón. Por lo pronto se me ocurre otra solución más viable:

Código Delphi [-]
THistorial = record
    Titulo: String[255];
    Link: String[255];
    Descripcion: Array [0..1000] of Char;
  end;

Puedes trabajar con Descripcion como si un string se tratara.

Un saludo.