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:
