Comment coller des données à partir d'Excel dans cxGrid
-
08-10-2019 - |
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?
La solution
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;
Autres conseils
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.