Amigo Casimiro, tienes razón un error imperdonable el mío, me aceptarias el decirte que fue un olvido ?
En cuanto a Delphius, tienes razón quizas con la POO es más fácil, pero el hecho es que se trata de la definicion de un archivo que debe ser guardado a texto, y cada registro puede ser distinto aunque todos tienen la misma longitud, por eso mi planteamiento era llenar los datos a traves del record y a la hora de guardar el archivo que fuese mediante
olvidandome desde ese momento de la estructura interna del record.
Gracias a todos por vuestras respuestas.
En su momento hice la siguiente función para ese tipo de record, que desconozco si funcionará en todos los sistemas, pero lo que hacia era recorrer todo el record, averiguar la longitud del string y eliminar los carácteres extraños para un record del tipo como el mencionado arriba.
Código Delphi
[-]
function RecordToString(const registro): string;
var
StrTemp: string; c: ^char; i: Integer; NumCars: LongInt; begin
StrTemp := '';
c := @registro;
while (c^ <> #0) do begin
NumCars := Ord(c^); i := 0;
while (i < NumCars) do begin
inc(c); StrTemp := StrTemp + c^; inc(i); end;
inc(c); end;
Result := StrTemp; end;
¿ Podria tener algún problema usando esta funcion ?
Gracias.