5 replies to this topic

[ariano]

Hola buenas noches, soy muy nuevo en esto.  Yo manejo un sortgrid que es parecido al dgrid
en el sortgrid tengo los siguientes datos

CODIGO DESCRIPCION              CANTIDAD
T001  TRABAJO MANTENIMIENTO 1
T002  TRABAJO OLEG                2
T004  TRABAJO LEG                  1

Pero no se como hacer una función en delphi de hacer un string
y que dentro de ella
('T001', 'T002', 'T003')

[Caral]

Hola
No conozco el sortgrid pero si es parecido al dbgrid entonces esta ligado a campos.
No se tampoco que usas para enlazar con la tabla un table o un query.
Me parece que falta informacion.
Saludos

[ariano]

Bueno como podria generar un string de esta manera en delphi

('T001', 'T002', 'T003')

gracias

[egostar]

Bueno como podria generar un string de esta manera en delphi

('T001', 'T002', 'T003')

gracias

No se si te entendí bien, pero eso es un arreglo de 3 Strings.

delphi

var
  Arreglo: Array [1..3] of String;

Te muestro una imagen a ver si eso es lo que necesitas.

Saludos

Attached Files

•  4202_1c8e0245ac12730a3806cd3eb1d4130b5d94c426.png   24.09KB   10 downloads

[Wilson]

Hasta donde entiendo el sortGrid es descendiente de TStringGrid, por lo tanto si ajustas el siguiente código, cambiando la declaración de la función de TStringGrid a TSortGrid, debería funcionarte sin problemas.

delphi

function TForm1.GridAString(Columna: Integer; Grid: TStringGrid): string;
var
  k: Integer;
begin
  result := '';
  for k := 1 to Grid.RowCount - 1 do
  begin
    result := result + Grid.Cells[Columna, k];
    if k < Grid.RowCount - 2 then
      result := result + ', ';
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(GridAString(1, MiGrid))
end;

Saludos

Attached Files

•  4204_b0a939847ab961e56a8e66911364091b285be1e6.jpg   47.61KB   6 downloads

[ariano]

Gracias, me sirvio