Как считать txt файл "сразу", без перебора строк?

[palpetrovich]

Что-то типа LoadFromFile.
И еще, как поместить результат в memo?
И как (куда, в массив? ) если визуализация не нужна?

по-ходу, что-то получилось

procedure TForm1.Button2Click(Sender: TObject);
var
 StringList1: TStringList;
begin
   if OpenDialog1.Execute then
   begin
      StringList1:= TStringList.Create;
      StringList1.LoadFromFile(OpenDialog1.FileName);
   end;
end;

а как в memo?

Вывел в мемо так
   for i:=0 To StringList1.Count-1 Do
   Form1.Memo1.Lines.Add(' '+StringList1.Strings[i]);

получил такие строки:
????? ????. ???? NAV-T 1;94.8;?;1;2;1;0;-0;

Вопрос: где я потерял русские буквы?
в общем, получилось так:

   //for i:=0 To StringList1.Count-1 Do Form1.Memo1.Lines.Add(' '+StringList1.Strings[i]);
   // преобразование для отображения кирилицы в нормальном виде
   str:= StringList1.Text;
   {$IFDEF WINDOWS}
   str:= SysToUTF8(str); // преобразование в кодировкуUTF-8
   {$ENDIF}
   Form1.Memo1.Lines.Add(str);

Всем спасибо

evg_m, memo.Lines.Loadformfile(...); - там тоже есть такое, спасибо

[Alex11223]

TStringList.

[evg_m]

memo.Lines.Loadformfile(...);

stringlist.LoadFormfile(....);
memo.lines.add(stringlist.strings);

[Alex11223]

а как код выделять здесь? что-то у меня подсказка не работает

Вопрос: где я потерял русские буквы?

Файл в какой кодировке?

[Вадим Мошев]

Сообщение от Alex11223

Файл в какой кодировке?

Кодировка файла здесь может быть вообще не при чём.
Рекомендую использовать функции
UTF8ToSys(<строка>) и AnsiToUTF8(<строка>).

_____________

По поводу выделения кода читать здесь: http://www.programmersforum.ru/showp...23&postcount=3

[Alex11223]

Как это не причем? Чтоб знать какие функции использовать (из чего во что конвертировать) нужно знать кодировку.

[Вадим Мошев]

Да, точно, был неправ.