Problem mit StringList

[Andreas L.]

Hi,
ich habe folgenden Code.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
 i : Integer;
 linkparam : String;
 sl : TStringList;
begin
 if Savedialog1.Execute then
  begin
   linkparam:=Edit1.Text;
   sl:=TStringList.create;
   sl.Add('<?php');
   sl.Add('if(isset($HTTP_GET_VARS["'+linkparam+'"])){$'+linkparam+' = $HTTP_GET_VARS["'+linkparam+'"];}else{$'+linkparam+' = "";}');
   sl.Add('            switch($'+linkparam+')');
   sl.Add('             {');
   for i:=0 to ListBox1.ItemIndex-1 do
    begin
     sl.Add('case "'+ ListBox1.Items.Strings[i] +'": header(Location: '+ ListBox2.Items.Strings[i] +'"); break;');
    end;
   sl.Add('             }');
   sl.add('?>');
   sl.SaveToFile(savedialog1.FileName);
  end
end;

Diese Zeile
sl.Add('case "'+ ListBox1.Items.Strings[i] +'": header(Location: '+ ListBox2.Items.Strings[i] +'"); break;'); funktioniert nicht. Führe ich die procedure aus wird anscheinend die ganze for-Schleife nicht beachtet.

Das das fertige Dokument dann so aussieht:

Code:

<?php
if(isset($HTTP_GET_VARS["page"])){$page = $HTTP_GET_VARS["page"];}else{$page = "";}
            switch($page)
             {
             }
?>

Wer findet den fehler, bin ratlos.....?

Greetz und thx