Código Delphi
[-]Type
rVetor
s1 : string;
s2 : string;
s3 : string;
s4 : string;
s5 : string;
end;
var
Vetor : rVetor;
begin
with AlgoConColumnas do
begin
Vetor.s1 := column[1];
Vetor.s2 := column[2];
Vetor.s3 := column[3];
Vetor.s4 := column[4];
Vetor.s5 := column[5];
end;
end;
Y ahora en serio:
- ¿Qué es lo que contiene columnas? una tabla, un TStringList, ...?
- ¿A que te refieres con "Vetor"? ¿a un Array? ¿a un Record?