Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#22

AW: Export nach Excel

  Alt 30. Aug 2012, 19:58
mit den Routinen aus #17 für den Weg über die Zwischenablage hatte ich mit folgendem Code bisher keinen Ärger (gegf. müsste #9 ausgesiebt werden)
Delphi-Quellcode:
Function GetAds4Excel(ads:TAdoDataset):String;
var
  sl:TStringList;
  s:String;
  i:Integer;
  Procedure ClipIt;
    begin
      s := Copy(s,1,length(s) - 1);
      sl.Add(s);
      s := '';
    end;
begin
  sl:=TStringList.Create;
  try
  s := '';
  For i := 0 to ads.FieldCount - 1 do
    begin
      if ads.Fields[i].Visible then s := s + ads.Fields[i].DisplayLabel + #9;
    end;
  ClipIt;
  while not Ads.Eof do
    begin
      For i := 0 to ads.FieldCount - 1 do
        begin
          if ads.Fields[i].Visible then s := s + ads.Fields[i].DisplayText + #9;
        end;
    ClipIt;
    Ads.Next;
    end;
  Result := sl.Text;
  finally
  sl.Free;
  end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat