String mayor a 255 para record

[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.