Excel에서 데이터를 cxGrid에 붙여 넣는 방법

Question

DevExpress cxGrid (데이터베이스에 연결됨)를 사용하는 Delphi 응용 프로그램이 있습니다.

Excel에서 그리드로 데이터를 복사하여 붙여 넣을 수 있어야합니다.

이것이 가능합니까? 그렇다면 어떻게해야합니까? 어떤 추가 구성 요소가 필요합니까?

Answer 1

Clipboard.HasFormat(CF_TEXT)으로 형식을 확인하십시오.

Clipboard.AsText으로 텍스트를 추출하십시오.

행을 StringList.Text := Clipboard.AsText으로 분할하십시오. 문자열 목록의 각 항목은 이제 클립 보드의 행입니다.

분할 스플릿 기능을 사용하여 개별 세포로 각 행 : 아마

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

Excel 응용 프로그램에서 콘텐츠를 복사 한 후 클립 보드의 내용을 확인할 수 있습니다. CTRL + V 바로 가기에서 클립 보드의 내용을 파싱하고 각각의 셀에 데이터를 설정합니다.