var
TextPatch:string;
SearchRec: TSearchRec;
begin
TextPatch:='c:\delete\';
if FindFirst(TextPatch+'*.txt', faAnyFile, SearchRec) =0 then
begin
Form1.ListBox1.Items.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;
Встретились два приятеля. У одного в руках коробка с телевизором.
- Где ты взял такой дефицит?
- Да вот, сходил к Нюрке, выпили, закусили, а потом она на кровать
плюхнулась, да как взмолится: "Вася, возьми у меня самое дорогое!"