Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Userdefinierte Anordnung von Spalten in einer HTML-Datei


Svenkan - Mo 13.10.08 18:41
Titel: Userdefinierte Anordnung von Spalten in einer HTML-Datei
Hallo Leute!
In meinen Vertretungsplänen gibt es z.B. für die Schüler insg. 9 Spalten:

Klasse
Stunde
Art
Fach
es fehlt
es vertritt
Raum
Bemerkung
Statt

In den Optionen meines Programms können in ListBoxes die aktiven und inaktiven Spalten eingestellt und in Ihrer Reihenfolge geändert werden. Die Namen der Spalten werden dann in 2 verschiedenen Dateien gespeichert: sp_aktiv.vpl und sp_inaktiv.vpl. Dies sind ganz normale Textdateien, die Dateiendung benutze ich allerdings zur Unterscheidung in meinem Programm.
Diese Datei sieht dann z.B. so aus:

Zitat:
Klasse
Stunde
Art
Fach
es fehlt
es vertritt
Raum
Bemerkung



Bisher wurden die Spalten folgendermaßen geschrieben:



Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
 WriteLn(Datei,'<tr class="vplan-header">');
 if order_mon='KLASSEN' then begin
  if s1 then WriteLn(Datei,'<td width='+ss1+'% class="vplan-klasse-header">'+sLineBreak+tklasse+'</td>');
  if s2 Then WriteLn(Datei,'<td width='+ss2+'% class="vplan-stunde-header">'+sLineBreak+tstunde+'</td>');
 end
 else begin
  if s2 Then WriteLn(Datei,'<td width='+ss2+'% class="vplan-stunde-header">'+sLineBreak+tstunde+'</td>');
  if s1 Then WriteLn(Datei,'<td width='+ss1+'% class="vplan-klasse-header">'+sLineBreak+tklasse+'</td>');
 end;
  if s9 Then WriteLn(Datei,'<td width='+ss9+'% class="vplan-art-header">'+sLineBreak+tentfall+'</td>');
  if s3 Then WriteLn(Datei,'<td width='+ss3+'% class="vplan-esfehlt-header">'+sLineBreak+tfehlt+'</td>');
  if s4 Then WriteLn(Datei,'<td width='+ss4+'% class="vplan-esvertritt-header">'+sLineBreak+tvertritt+'</td>');
  if s5 Then WriteLn(Datei,'<td width='+ss5+'% class="vplan-fach-header">'+sLineBreak+tfach+'</td>');
  if s10 then WriteLn(Datei,'<td width='+ss10+'% class="vplan-statt-header">'+sLineBreak+tstatt+'</td>');
  if s6 Then WriteLn(Datei,'<td width='+ss6+'% class="vplan-bemerkung-header">'+sLineBreak+tbemerkung+'</td>');
  if s7 Then WriteLn(Datei,'<td width='+ss7+'% class="vplan-raum-header">'+sLineBreak+traum+'</td>');
  WriteLn(Datei,'</tr>');



Je nach der Anordnung in der Textdatei 'sp_aktiv.vpl' sollen nun die Spalten auch im Programm erstellt werden!
Hat da jetzt jemand eine Idee, wie diese Aufgabe zu lösen ist?


CROSSPOST: http://www.delphipraxis.net/topic144243_userdefinierte+anordnung+von+spalten+in+einer+htmldatei.html


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!