Ahhh tschuldigung Klaus01, ich glaub ich hab nur die Hälfte von deinem Vorschlag erkannt. Jetzt gleiche ich Text und Suchbegriff vor dem Vergleich auf lowercase an und es funktioniert!
Danke ncohmal an alle
Richtiger Quellcode ist also:
Delphi-Quellcode:
procedure TForm5.SuchestartenClick(Sender: TObject);
var
StringList : TStringList;
s : string;
i : byte;
begin
memo1.clear;
for i := 1 to 100 do
begin
StringList := TStringList.Create;
try
StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt');
s := lowercase(StringList.Text);
if pos(lowercase(edit1.text), s) > 0 then
memo1.lines.add (inttostr(i));
finally
StringList.free;
end;
end;
end;