Come per incollare dati da Excel in cxGrid
-
08-10-2019 - |
Domanda
Ho un'applicazione Delphi usando DevExpress cxGrid (che è collegato al database).
Ho bisogno di essere in grado di copiare e incollare i dati da Excel nella griglia.
È possibile? Se è così, come farlo, quali componenti aggiuntivi hanno bisogno i?
Soluzione
Controlla il formato con Clipboard.HasFormat(CF_TEXT)
.
estrarre il testo con Clipboard.AsText
.
Split in file con StringList.Text := Clipboard.AsText
. Ogni elemento della lista stringa è ora una riga dalla clipboard.
Split ciascuna riga in singole celle utilizzando una funzione 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;
Altri suggerimenti
È possibile verificare il contenuto degli appunti dopo aver copiato i contenuti da app di Excel. e poi CTRL + V collegamento che si analizza il contenuto dei dati degli Appunti e impostati alle loro rispettive celle.