Forum: Programmieren allgemein
by David Martens,
19. Jul 2010
Na dann ist es doch einfach:
(Dann steht auch ColCount fest)
procedure ExportVirtualStringTreeToExcel(VirtualStringTree : TVirtualStringTree);
var
ExcelApp,
Workbook,
Worksheet,
Range,
Forum: Programmieren allgemein
by David Martens,
19. Jul 2010
Wie greifst du denn später auf "data" aus VstScan.addchild(nil, data); zu?
Moment ich sehe gerade:
Da haut was nicht hin. Was ist denn Kunde, das ist in der Klasse doch garnicht definiert. Damit speicherst du nicht ab.
Versuchs mal hiermit
Forum: Programmieren allgemein
by David Martens,
19. Jul 2010
Als Klasse? Das geht doch bei VST garnicht.
Forum: Programmieren allgemein
by David Martens,
19. Jul 2010
Wie sieht denn bei dir die Datenstruktur aus, in die du die Daten schreibst?
Hier noch wie wir das machen:
procedure TfraGLOB_VSTAnalyseGrid.LoadVST;
var
GridNodeData : PGridTreeData;
newGridNode : PVirtualNode;
i : integer;
begin
Forum: Programmieren allgemein
by David Martens,
19. Jul 2010
:oops: ich sehe gerade das der Export so doch nicht unabhänig von den Daten ist.
Hier was noch fehlt:
type
TGridTreeData = record
Columns : TStringList;
end;
PGridTreeData = ^TGridTreeData;
Forum: Programmieren allgemein
by David Martens,
16. Jul 2010
@himitsu: dazu muß der Export aber die Struktur kennen. Wenn das nicht der Fall ist, dann muß man direkt aufs VST gehen. Hat den Vorteil das der Export dann universell bleibt.
Hier noch mein Vorschlag (ein wenig Umgebaut von himitsus post):
procedure ExportVirtualStringTreeToExcel(VirtualStringTree : TVirtualStringTree);
var
ExcelApp,
Workbook,
Worksheet,
Forum: Programmieren allgemein
by David Martens,
15. Jul 2010
Und weil wir gerade dabei sind. Ich würde gerne mein Wissen, was Excel angeht, mit anderen teilen und ein Projekt ins Leben rufen was zum Ziel hat einen funktionierenden Excel(Word, Office)-Server für Delphi bereitzustellen.
Hier u.a. was ich bisher kann:
- Prüfung ob Excel installiert
- Excel: starten, anzeigen, verstecken, schließen, Version anfragen, Sprache (des Systems)
- Dokument:...
Forum: Programmieren allgemein
by David Martens,
15. Jul 2010
Da muß ich ein wenig wiedersprechen.
Fakt ist man muß eine Konvertierung machen, ob StringGrid, VST oder sonstwas.
Da unser Export mit unterschiedlichen "Grids" arbeiten können soll, habe ich eine "Wrapper"-Klasse geschrieben, damit die eingentliche Exportklasse übersichtlich bleibt.
Hier ein paar Ansätze:
procedure TExcelServer.WriteRange(Row, Col, RowCount, ColCount: integer;...