Ich glaub müßte eher so funktionieren ...
Delphi-Quellcode:
AssignFile(F, OpenDialog1.Files[i]);
{$I-}
Reset(F);
{$I+}
if IOResult = 0 then
begin
while not EOF(F) do
begin
ReadLn(F, s1);
CheckListBox1.Items.Add(sl);
end;
CloseFile(F);
end;
aber ich würde es eher mit einer weiteren Stringliste machen, das mit AssignFile kommt mir persönlich schon etwas zu alt vor (kommt ja noch von der DOS Zeit ...) aber ...
Delphi-Quellcode:
var tempSL : TStringList;
begin
tempSL := TStringList.Create;
tempSL.LoadFromFile(FileName);
CheckListBox1.AddStrings(tempSL);
tempSL.Free;