Logo jkrieger.de section logo
invisible corner_top_left.gif
divider design elem. Home design elem.   design elem. Software design elem.   design elem. Links design elem.   design elem. Science design elem.   design elem. Photographie design elem.   design elem. everythingelse design elem.   design elem. eMail design elem.
divider_end corner_top_right
Verlauf

unit jkSYLK: Beispiel

Das folgende Programm soll als beispiel für die Anwendung der Unit jkSYLK dienen:

uses jkSYLK;

procedure WriteSYLK;
var f:tSYLKFile; //SYLK-Datei-Dateivariable
    y, x:longint;
begin
  // 1. eine neue SYLK-Datei erzeugen
  jkSYLK_CreateFile(f, 'c:\temp\test.slk', 'jkSYLK-Testprogramm');
 

  // 2. Zellbegrenzungen (Anzahl der Zellen) schreiben
  jkSYLK_WriteBoundaries(f, 3, 21);
 

  // 3. Daten schreiben
  y:=1;
  //  3.1 String-Daten
  for x:=1 to 3 do
    jkSYLK_WriteCell(f, x, y, 'Datenreihe '+inttostr(x));
  //  3.2 Integer-Daten
  for y:=2 to 11 do
    for x:=1 to 3 do
      jkSYLK_WriteCell(f, x, y, x*y);
  //  3.3 String-Daten
  for y:=12 to 21 do
    for x:=1 to 3 do
      jkSYLK_WriteCell(f, x, y, inttostr(x)+' * '+inttostr(y));
 

  //4. Datei schließen
  jkSYLK_CloseFile(f);
end;
 

Es erzeugt eine Sylk-Datei, die in Excel folgendermaßen dargestellt wird:

 printable version Impressum
corner_top_right2
verlauf_right.gif
corner_bottom_left.gif corner_bottom_left2 Copyright (c) J. Krieger corner_bottom_right.gif
invisible
last updated: 18.06.2008
file: http://www.jkrieger.de/programming/delphi/jksylk_test.html
invisible