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

[rantanplan99]

Zitat:

Delphi-Quellcode:

   for i:=0 to ListBox1.ItemIndex-1 do
    begin
     sl.Add('case "'+ ListBox1.Items.Strings[i] +'": header(Location: '+ ListBox2.Items.Strings[i] +'"); break;');
    end;

probiers mal mit

Delphi-Quellcode:

   for i:=0 to ListBox1.Count-1 do
    begin
     sl.Add('case "'+ ListBox1.Items.Strings[i] +'": header(Location: '+ ListBox2.Items.Strings[i] +'"); break;');
    end;

Itemindex liefert ja nur den Index des selektierten Items zurück und ich nehme an du meinst .count

[Andreas L.]

OK, jezt gehts.

Danke

[Giantics]

Mir fällt da grad noch auf, dass du die Stringliste nach Gebrauch nicht wieder löschen tust (sl.Free) 8)