Hi,
ich habe folgenden Code.

zusammenfalten · markieren

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:

markieren

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

Zitat:

markieren

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

markieren

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

OK, jezt gehts.

Danke

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