AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Excel erzeigen mit SwissDelphiCenter code geht nicht
Thema durchsuchen
Ansicht
Themen-Optionen

Excel erzeigen mit SwissDelphiCenter code geht nicht

Ein Thema von hedie · begonnen am 1. Dez 2011 · letzter Beitrag vom 17. Feb 2024
 
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.344 Beiträge
 
Delphi 12 Athens
 
#12

AW: Excel erzeigen mit SwissDelphiCenter code geht nicht

  Alt 3. Dez 2011, 18:36
@Chemiker:
Im Prinzip ist das der gleiche Code, wie der hier schon im 1. Post Genannte, woraus ich meine Klasse erstellt hab.
Nur daß dein verlinker Code nur Strings kann, wärend dieser noch Integer und Floats kennt und daß man die Daten nochmals verändern kann, vor dem Speichern.


Bei mir geht weder Laden einer vorhanden, noch das Speichern einer neuen, ich habe es so versucht:

BTW: warum hast Du von TComponent abgeleitet?
Joar, wenn man (ich) so blöd ist und die Cell-Info in TExcelCreator.SetVarCell, nach dem erfolgreichen Speichern, wieder mit Zufallswerten zu überschreiben
und dann auch noch beim Abspeichern (SaveToFile) die falschen Anzahlen der Rows und Cols verwendet (beim Auslesen mit <= statt => gesucht),
dann braucht man sich nicht wundern.


Nja, wir leben halt in einer KlickbuntiOOPWelt ... drum ist das schon so ausgelegt, daß man diese Komponente irgendwann mal auf der Toolpalette in die Form klatschen kann.



PS: Bitte nicht über die OutputDebugStrings im Code wundern.
Das Schreiben scheint nun zu gehn, jedenfalls mit dem ersten Teil dieses Codes.
Delphi-Quellcode:
var
  E: TExcelCreator;
begin
  E := TExcelCreator.Create(nil);
  E.Cell[1,1] := 'Was auch immer'#13#10'in zweiZeilen';
  E.Cell[2,2] := 1234.5678;
  E.SaveToFile('C:\Users\Frank\Desktop\ExcelFile.xls');
  E.Free;

  E := TExcelCreator.Create(nil);
  E.LoadFromFile('C:\Users\Frank\Desktop\ExcelFile.xls');
  E.Cell[2,1] := 'noch mehr';
  E.SaveToFile('C:\Users\Frank\Desktop\ExcelFile2.xls');
  E.Free;
Aber beim Auslesen der selbsterstellten Datei hapert es noch.
Auch wenn es eventuell oftmals nicht geht fremde Dateien einzulesen, aber die eigenen sollten schon noch gehn (irgendwann mal).

OK, vielleicht bekommt noch jemand raus, wie man mehrzeilig in eine Spalte rein macht.



Nja, also im Prinzip ist dieses alte Binärformat doch recht einfach ufgebaut.
Eventuell könnte man sich ja auch mal ansehn, wie das neue gezippte XML-Format aussieht.


[edit]
So, jetzt geht's Speichern, des Auslesen und beim auslesen hab ich versucht noch ein bissl flexiebler zu sein, was Fremddateien angeht.
Da ich aber nur einen kleinen Teil der Spezifikation drin hab und es auch nicht angedacht ist alles aufzunehmen, wird auch niemals alles unterstützt werden, aber hier geht's ja mehr ums Erstellen der Datei, als ums Einlesen.

PS: Über mein Excel hab ich grade rausgefunden, daß es sich bei dieser Datei um ein "Arbeitsblatt/Workssheet in der uralten Version 2" handelt.
Angehängte Grafiken
Dateityp: png Excel.png (42,5 KB, 31x aufgerufen)
Angehängte Dateien
Dateityp: pas ExcelFile.pas (14,7 KB, 26x aufgerufen)
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu ( 3. Dez 2011 um 19:59 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz