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: