Как загнать текстовый файл в Memo

Тема в разделе "Delphi - Система", создана пользователем Renegade, 13 ноя 2006.

Статус темы:
Закрыта.
  1. Renegade

    Renegade Гость

    Как загнать текстовый файл в memo?
     
  2. Barmutik

    Barmutik Гость

    Код (Text):
    Memo1.Lines.LoadFromFile('...file name...')
     
  3. a3design

    a3design Гость

    Еще один вариант, не такой компактный, но позволяет обрабатывать файл "на лету":
    Код (Text):
    var
    f:TextFile;
    s:string;
    begin
    AssignFile(..); Reset(f);
    while not eof(f) do
    begin
    readln(f,s);
    //Обрабатываем строку как хотим
    Memo1.Lines.Add(s);
    end;
    CloseFile(f);
    end;
    Таким образом, если слегка изменить код, можно загнать в Memo любой файл.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей