人々が知りたい場合のために、私は CSV ファイルをエクスポートするために TMS DBAdvGrid に回避策を作成しました。
TAdvStringGrid に新しいプロパティを追加しました
public {properties}
property HideCSVHeader: boolean read FHideCSVHeader write FHideCSVHeader;
次のコードを変更しました。
procedure TAdvStringGrid.OutputToCSV(FileName:String;appendmode: Boolean;
Unicode: boolean);
....
//changed this code further down the procedure:
//for z := SaveStartRow to SaveEndRow do
//Into:
MyStartRow:= SaveStartRow;
if HideCSVHeader then Inc(MyStartRow);
for z := MyStartRow to SaveEndRow do
それから私が電話するとき
procedure TForm1.BtnExportClick(Sender: TObject);
var
Filename: string;
succes: Boolean;
begin
succes:= True;
if ExportSaveDialog.Execute then begin
Filename:= ExportSaveDialog.FileName;
try
DBGridExportExact.Delimiter:= ';';
DBGridExportExact.AlwaysQuotes:= True;
DBGridExportExact.QuoteEmptyCells:= True;
DBGridExportExact.SaveHiddenCells:= True;
DBGridExportExact.HideCSVHeader:= True;
DBGridExportExact.SaveToCSV(bestandsnaam);
except
succes:= False;
end;
if not(succes) then StatusLabel.Caption:= 'Error bla bla';
end;
end;