Cómo pegar datos de Excel en cxGrid

Question

Tengo una aplicación Delphi usando DevExpress cxGrid (que está conectado a la base de datos).

requiero para poder copiar y pegar los datos de Excel en la red.

¿Es esto posible? Si es así, cómo hacerlo, qué componentes adicionales hacerlo necesidad i?

Answer 1

Comprobar el formato con Clipboard.HasFormat(CF_TEXT).

Extracto del texto con Clipboard.AsText.

Dividir en filas con StringList.Text := Clipboard.AsText. Cada elemento de la lista de cadenas es ahora una fila desde el portapapeles.

Split cada fila en células individuales utilizando una función Split:

function Split(const s: string; Separator: char): TStringDynArray;
var
  i, ItemIndex: Integer;
  len: Integer;
  SeparatorCount: Integer;
  Start: Integer;
begin
  len := Length(s);
  if len=0 then begin
    Result := nil;
    exit;
  end;

  SeparatorCount := 0;
  for i := 1 to len do begin
    if s[i]=Separator then begin
      inc(SeparatorCount);
    end;
  end;

  SetLength(Result, SeparatorCount+1);
  ItemIndex := 0;
  Start := 1;
  for i := 1 to len do begin
    if s[i]=Separator then begin
      Result[ItemIndex] := Copy(s, Start, i-Start);
      inc(ItemIndex);
      Start := i+1;
    end;
  end;
  Result[ItemIndex] := Copy(s, Start, len-Start+1);
end;

Answer 2

Puede comprobar el contenido del portapapeles después de copiar el contenido de la aplicación Excel. y luego en CTRL + V atajo que analizar el contenido de los datos del portapapeles y se puso a sus respectivas celdas.