Текстовые Файлы Опции

[Dead.MorozZ]

Помогите присвоить метке значение Текстового Файла. Мой код присваивает только первую строку из файла, в чем ошибка???

Код

var
  F: TextFile;
  S: String;
begin
  AssignFile(F, 'Text.txt');
  Reset(F);
  Read(F, S);
  Label1.Caption := S;
end;

[hardcase]

Для работы с файлами в Делфи лучше использовать стримы - потоки.
TFileStream - для работы с файлами.

Ещё в принципе можно пользоваться TStringList "ом - у него есть метод LoadFromFile(const FileName: string)

function ReadAllFile(const FileName: string): string;
  var S: TFileStream;
  begin
    S:=TFileStream.Create(FileName);
    try
      S.Reset;
      SetString(Result,nil,S.Size);
      S.ReadBuffer(pointer(Result)^,S.Size);
    finally
      S.Free;
    end;
  end;

function ReadAllFile(const FileName: string): string;
    var S: TStringList;
    begin
      S:=TStringList.Create;
    try
        S.LoadFromFile(FileName);
      Result:=S.Text;
    finally
      S.Free;
    end;    
    end;

Первый вариант работает быстрее.
Чёта я сегодня добрый. Есть случаи когда файло текста большое и при загрузке нужно сделать так, чтоб приложение не зависало на долго. Т.е. организовать чтение по строкам без частого обращения к стриму (системе).

Вот класс, который позволяет прочитать построчно весь текстовый файл, не загружая его предварительно в память - использует постраничную загрузку.

Сообщение отредактировано: hardcase - 14.01.2006 0:18