[dido11]

Здравствуйте.
Пишу программку, возникла дурацкая проблема, нужно считать текст из txt файла, не могу сообразить как считать весь текст (по строкам или как угодно), либо только строку по выбору. Прошу подсказки, заранее благодарен.

[ryderx34]

Код:

var
  SL: TStringList;

SL := TStringList.Create;
SL.LoadFromFile('file_name.txt');
// здесь работаешь с текстом
SL.Free;

если нужно загрузить текст в какой-нибудь компонент, например в TMemo, тогда напрямую (без TStringList):

Код:

Memo1.Lines.LoadFromFile('file_name.txt');

[roamer]

В D 2009 можно использовать конструкцию:

procedure TStrings.LoadFromFile(const FileName: string; Encoding: TEncoding);

Например:

Код:

 Memo1.Lines.LoadFromFile('file_name.txt',TEncoding.UTF8); //utf8
 Memo1.Lines.LoadFromFile('file_name.txt',TEncoding.GetEncoding(1251)); //win-1251
 Memo1.Lines.LoadFromFile('file_name.txt',TEncoding.GetEncoding(20866)); //koi8r, кажется

и т.д.