حول بناء محرك بحث بـ استخدام دلفي

[لؤي]

طريقة بإستخدام الدالة comma

PHP كود :

var l:string;s:tstringlist; f:textfile; i:integer;
begin
 AssignFile(f,'C:\service.log');
 reset(f);     s:=tstringlist.Create ;
 repeat
 Readln(f,l);
 s.CommaText:=l;
 for I := 0 to  s.Count -1 do
 ShowMessage(s[i]);
 until eof(f) ;
 CloseFile(f);
 s.Free;
end;