Witam
Mam problem z kodem wyszukiwania w pliku. Chce aby po wyszukaniu tego co chce wyswietlil mi to w listboxie. Ale nie wyswietla
Oto kod
procedure TForm1.Button4Click(Sender: TObject);
begin
AssignFile(plik,'C:\Users\David\Desktop\projekt WDP\baza.txt');
reset(plik);
ListBox1.Clear;
Button3.Enabled:=true;
Read(plik,ciag);
repeat
if (Edit6.Text=ciag) then
begin
ShowMessage('Wyszukano');
ListBox1.Items.Add(ciag);
end;
until EOF(plik);
CloseFile(plik);
end;
dodanie znacznika <code class="delphi"> - fp