Overview über Ordnerinhalt in HTML-Datei schreiben

**Svenkan**

Ach..

Ist klar, dasses dann nicht klappt. ^^
Musste es jetzt noch n bisschen umstellen:

Delphi-Quellcode:

			  AssignFile(Datei, (ExtractFilePath(ParamStr(0))+'.\splaene\overview.htm'));

  Rewrite(Datei); // Datei neu schreiben

  anfang:='<html>'+sLineBreak+'<head>'+sLineBreak+'<title>Stundenplanübersicht '+schule+'</title>'+sLineBreak+'</head>'+sLineBreak+'<body>'+sLineBreak+'<table width="100%">'+SLineBreak+'<tr>';

  b:=sLineBreak+'<td align="left"><FONT face=Arial COLOR=#000080 style="font-size: 8pt">Stand: '+str+'</FONT><font color=#000080 face=Arial size=5></font></td>'+sLineBreak+'<td align="right"><FONT face=Arial COLOR=#000080 style="font-size: 8pt">'+schule+'</td></tr></table>'+sLineBreak+'<table align="center" border="1" width="23%" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">'+sLineBreak+'<tr>';

  WriteLn(Datei, anfang);

  WriteLn(Datei, b);

  for count := 0 to Pred(LbOverview.Items.Count) do begin

   hcode:='<td align="center">'+sLineBreak+'[url="'+LbOverview.Items[count]+'"]'+LbOverview.Items[count]+'[/url]</td>';

   WriteLn(Datei, hcode);

  end;

  ende:='</tr>'+sLineBreak+'</table>'+sLineBreak+'<p align="right"><font face=Arial size=1 color=#0000A0>

Geschrieben mit '+programm+' von [email="svenkan@gmx.de"]Sven Kannenberg[/email]</font></p>'+sLineBreak+'</body>'+sLineBreak+'</html>';

  WriteLn(Datei, ende);

  CloseFile(Datei);                 // Datei schließen

Ist es möglich, dass anfangs schon die Einträge der Listbox wirklich nach Alphabet/Zahlen geordnet werden und nicht 11 vor 8 oder so steht?
Bei PHP muss man das irgendwie innem Array zusammenfassen und dann sortieren lassen.
Wie funktioniert das in Delphi?

Overview über Ordnerinhalt in HTML-Datei schreiben

Re: Overview über Ordnerinhalt in HTML-Datei schreiben

Forumregeln