Mejor manera de convertir un record en string

[Critter]

dado el siguiente record

Código Delphi [-]
TPerson = record
   DNI: string[9];
   Nombre: string[40];
end;

var
  Person: TPerson;

Person.DNI    := '123456789';
Person.Nombre := 'Usuario Club Delphi';

para generar una cadena con el record hago ....

Código Delphi [-]
RecStr = Person.DNI + Person.Nombre;

¿ Existe alguna forma más generica de realizar dicha acción ?,

No se si me explico bien, pero lo que quiero es poder convertir un record dado en una cadena, sin que para lograrlo tenga que concatenar todos los campos.

Gracias.

[Casimiro Notevi]

Amigo, por favor, después de 50 mensajes y todavía no pones los tags al código
Recuerda poner los tags al código fuente, ejemplo:



Gracias

[[egostar]]

Hola

Lo único que se me ocurre es usar una función dentro de tu record, para "juntar" los campos sí o sí debes de concatenar, pero bueno, no me creas mucho, por ahí vendrá alguno de los compañeros que si sabe y nos ilustrará con algo mas simple.

Código Delphi [-]
type
  TPerson = record
     DNI: string[9];
     Nombre: string[40];
     function Cadena: string;
  end;

var
  Person: TPerson;

{ TPerson }
function TPerson.Cadena: string;
begin
  result := DNI + Nombre;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Person.DNI    := '123456789';
  Person.Nombre := 'Usuario Club Delphi';

  showMessage( Person.cadena );
end;

Saludos

[Casimiro Notevi]

Creo que no hay muchas más posibilidades, salvo acceder a la memoria donde esté almacenado el contenido del record y leerlo, pero puede que el valor de ambas variables no estén contínuas en memoria, por lo que no sería seguro que siempre tuviese éxito.
Seguramente la solución de egostar sea la más "directa".

[[Delphius]]

Si hay algo que no entiendo es porqué seguir intentando usar un record como si fuera una clase.
¿Y porqué no mejor abandonar ese pensamiento estructurado y avanzar hacia el maravilloso mundo que ofrece POO?
Y si esta duda surge porque se disponen de muchos campos y si quiere concatenar muchos de ellos, una posible manera de encarar el problema sería mediante TStringList.
En él se almacenan los datos de cada variable, y luego para concatenar basta con hacer algo como:

Código Delphi [-]
for i := 1 to Listado.Count - 1 do
result := result + Listado.Strins[i];

Aprovechando la propiedad .Values[] se puede hacer correspondencias entre atributos -> Valor. Por ejemplo:

Código Delphi [-]
Listado.Values['DNI'] := '123456789';

Siendo DNI el atributo en cuestión, y así con el resto de atributos imaginados.

Ojo, que lo digo de a memoria, no tengo Delphi abierto a mano.

Saludos,

[Critter]

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

Código Delphi [-]
Writeln(strDelRecord);

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;  // Cadena temporal
  c: ^char;         // Puntero a char
  i: Integer;       // Contador.
  NumCars: LongInt; // Numero de carácteres
begin
  StrTemp := '';
  c := @registro;
  while (c^ <> #0) do   // Mientras no sea el final del registro.
  begin
    NumCars := Ord(c^); // Lee la longitud de la cadena
    i := 0;
    while (i < NumCars) do // Lee caracteres de la cadena.
    begin
      inc(c); // Incrementa el contador del caracter.
      StrTemp := StrTemp + c^; // Traspasa los datos a la cadena.
      inc(i); // Incrementa el contador de carácteres en el registro actual.
    end;
    inc(c); // Incrementa el contador de Caracter.
  end;
  Result := StrTemp; // Devuelve un string.
end;

¿ Podria tener algún problema usando esta funcion ?

Gracias.