AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Userdefinierte Anordnung von Spalten in einer HTML-Datei
Thema durchsuchen
Ansicht
Themen-Optionen

Userdefinierte Anordnung von Spalten in einer HTML-Datei

Offene Frage von "Svenkan"
Ein Thema von Svenkan · begonnen am 13. Okt 2008 · letzter Beitrag vom 13. Okt 2008
 
Svenkan

Registriert seit: 10. Feb 2007
Ort: Bersenbrück
547 Beiträge
 
Delphi 7 Enterprise
 
#1

Userdefinierte Anordnung von Spalten in einer HTML-Datei

  Alt 13. Okt 2008, 13:48
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='KLASSENthen 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?
Sven Kannenberg
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz