Hallo,
ich schreibe gerade einen kleinen HTTPServer, dort möchte ich feststellen ob das Request Dokument in einer Listbox steht.
Hier mal der Code zum durchsuchen:
Delphi-Quellcode:
function inlist(list: TListbox; Request: string): Boolean;
var
I: Integer;
begin
I := List.Items.IndexOf(Request);
if I >= 0
then
begin
Result:=true;
end
else
begin
Result:=false;
end;
end;
Und in CommandGet hab ich folgendes:
Delphi-Quellcode:
if inlist(Form2.ListBox1, RequestedDocument)=true then
begin
Log(RequestedDocument);
end
else
begin
Log(RequestedDocument);
RequestedDocument :='index.html';
end;
Ich habe ein Bild angehängt da sieht man den Fehler der beim Schließen des programms auftritt.