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-Quellcode:
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?