Problema con Strings

[chivofbv]

estoy recorriendo el archivo F por líneas y separo los campos por longitudes de estos, es un ciclo por línea que me corta esta cada cierta longitud, el resultado lo copia en un String, al cual le realizo un Trim y este es el que paso como parámetro al insert.

Gracias

[roman]

Mmm...

Necesitaríamos ver un poco de código.

// Saludos

[chivofbv]

X:String

readln(f,linea);
while i<Length(estructura) do
begin
x :=Trim(copy(linea,0,estructura[i].Longitud));
DM.SQLInsert.Params[i].AsString := x;
linea:=copy(linea,estructura[i].CDR_Longitud+2,length(linea));
inc(i);
end;

TKS

[[maeyanes]]

Te recomendaría que uses un TStrinList para cargar el archivo que deseas procesar:

Código Delphi [-]
var
  MyFileStr: TStringList;
  I: Integer;
  Line: String;

begin
  MyFileStr := TStringList.Create;
  try
    MyFileStr.LoadFromFile('Ruta del archivo\archivo.txt');
    for I := 0 to Pred(MyFileStr.Count) do
    begin
      Line := MyFileStr[i];
      // procesar Line    
    end
  finally
    MyFileStr.Free
  end
end;

Ahora, no entendí del todo que es estructura, ¿es algún arreglo de registros?

Saludos...

[chivofbv]

si es una estructura que contiene los nombres de los campos y las longitudes que tiene cada linea del archivo, con el objetivo de poder separar cada campo de la linea del archivo