Problema con Strings

[chivofbv]

Estoy desmenuzando una archivo txt que me entregan, a este archivo le estoy dando un proceso que me separa ciertos datos que tengo que insertar a una base de datos, cuando lo ago me esta adicionando al final de cada cadena un carácter, el cual en la base de datos no se ve pero en la longitud del campo insertado si, este carácter especila no lo quiero insertar que puedo hacer?



Gracias

[roman]

El caracter puede corresponder al retorno de carro pero convendría que nos dijeras cómo es que estás desmenuzando el archivo, es decir, cómo lo estás leyendo.

// Saludos

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


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