Работа с текстовыми файлами

[DartMrakkk]

Мне нужно чтобы в ComboBox добавлялись названия файлов из определенной директории, причем только файлы с определенным расширением (Например *.dat). Также напишите пож-та код чтения определенной строки из текстового файла. Заранее благодарен...

[Сильванович Михаил]

Чтение строки из файла:

var
 f: TextFile;
 buffer: string;
 i: integer;
...
AssignFile(f,'1.dat');
for i:=1 to n do Readln(f,buffer); 
//n - номер строки, после выполнения 
//цикла buffer будет содержать нужную строку
CloseFile(f);

По поводу списка:

var
  sr: TSearchRec;
  res: integer;
...
 SetCurrentDir('E:\1\12\1'); //меняем текущую директорию на нужную нам
 res:=FindFirst('*.dat',faAnyFile,sr); //запускаем поиск
 if res=0 then
 begin
  ComboBox1.Items.Add(sr.Name);
  while FindNext(sr)=0 do //пока есть файлы не найденные нами
   ComboBox1.Items.Add(sr.Name);
 end;

[_SERGEYX_]

1.

procedure ListFileDir(Path: string; aCombobox: TCombobox);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*.dat', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         aCombobox.items.Add(SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

 //Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
ListFileDir('C:\WINDOWS\', Combobox1);
end;

2. А здесь интересный пример

function GrabLine(const AFileName: string; ALine: Integer): string;
 var
   fs: TFileStream;
   buf: packed array[0..4095] of Char;
   bufRead: Integer;
   bufPos: PChar;
   lineStart: PChar;
   tmp: string;
 begin
   fs := TFileStream.Create(AFileName, fmOpenRead);
   try
     Dec(ALine);
     bufRead := 0;
     bufPos := nil;
     if ALine = 0 then
     begin
       bufRead := fs.Read(buf, SizeOf(buf));
       if bufRead = 0 then
         raise Exception.Create('Нет такой строки');
       bufPos := buf;
     end else
       while ALine > 0 do
       begin
         bufRead := fs.Read(buf, SizeOf(buf));
         if bufRead = 0 then
           raise Exception.Create('Нет такой строки');
         bufPos := buf;
         while (bufRead > 0) and (ALine > 0) do
         begin
           if bufPos^ = #10 then
             Dec(ALine);
           Inc(bufPos);
           Dec(bufRead);
         end;
       end;
     lineStart := bufPos;
     while (bufRead > 0) and (bufPos^ <> #10) do
     begin
       Inc(bufPos);
       Dec(bufRead);
     end;
     SetString(Result, lineStart, bufPos - lineStart);
     while bufRead = 0 do
     begin
       bufRead := fs.Read(buf, SizeOf(buf));
       lineStart := buf;
       bufPos := buf;
       while (bufRead > 0) and (bufPos^ <> #10) do
       begin
         Inc(bufPos);
         Dec(bufRead);
       end;
       SetString(tmp, lineStart, bufPos - lineStart);
       Result := Result + tmp;
     end;
   finally
     fs.Free;
   end;
 end;

 //Пример использования
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:= 'C:\1.txt';
if fileexists(s) then
//читаем вторую строку
Showmessage(GrabLine(s, 2)) else
Showmessage('Файл не существует');
end;

[DartMrakkk]

Спасибо. Тему считаю закрытой !