Comment coller des données à partir d'Excel dans cxGrid

Question

I ai une application Delphi utilisant DevExpress cxGrid (qui est relié à la base de données).

j'ai besoin pour être en mesure de copier-coller des données à partir d'Excel dans le réseau.

Est-ce possible? Si oui, comment le faire, quels composants supplémentaires ont besoin d'i?

Answer 1

Vérifiez le format avec Clipboard.HasFormat(CF_TEXT).

Extraire le texte Clipboard.AsText.

Diviser en rangs avec StringList.Text := Clipboard.AsText. Chaque élément de la liste de chaînes est maintenant une ligne dans le presse-papiers.

Séparer chaque rangée dans des cellules individuelles en utilisant une fonction de 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

Vous pouvez vérifier le contenu du presse-papier après avoir copié le contenu de l'application Excel. puis sur CTRL + V vous raccourci analyser le contenu des données du presse-papiers et à leurs cellules ensemble respectives.