Окно вывода в LAZARUS

[AlexGordon]

Здравствуйте. У меня возник следующий вопрос.
Вот к примеру, когда в лазарусе идет компиляция проекта, то в окне вывода пишутся все сообщения компилятора.
Вот я написал, допустим, свою среду, которая использует консольный компилятор. Как сделать так, чтобы все сообщения из консольной программы так же направлялись в окно вывода? То есть какую форму надо создать, какие объекты разместить, какие свойства прописать? Если кто-нибудь с этим работал, то помогите пожалуйста. Заранее спасибо.

[alexs]

TAsincProcess
Смотри его.

[AlexGordon]

А вы не могли бы подсказать, какая команда за что там отвечает?

[Odyssey]

http://wiki.lazarus.freepascal.org/Exec ... 0.B5.D1.80

Это для простого TProcess, для TAsyncProcess, возможно, придётся адаптировать.

[AlexGordon]

Odyssey, спасибо вам огромное!
Но у меня еще один вопрос. У меня есть объект SynMemo, и при загрузке в него текста из файла с русским текстом русский текст не отображается. Как это поправить, не пересохраняя текстовый файл?

[Odyssey]

А в какой кодировке текстовый файл?

[AlexGordon]

1251 ANSI Кириллица

[Odyssey]

С SynMemo не работал, но подозреваю, что ему требуется utf-8. Можно перед записью в SynMemo прочитать файл в буферную строку или StringList и перекодировать, используя модуль LConvEncoding, функцию CP1251ToUTF8.

[AlexGordon]

А можно чуть-чуть поподробнее?

[dunin]

С SynMemo не работал, но подозреваю...

Аналогично

А можно чуть-чуть поподробнее?

Код: Выделить всё

var List: tStringList
i: integer;
...
List.loadfromfile(CP1251ToUTF8('файла с русским текстом.txt'));
for i:=0 to List.Count-1 do
Memo1.Lines.add(CP1251ToUTF8(List.Strings[i]));

как-то так... не проверял.

Поищи по форуму. Вопрос про кодировки ну ооооочень часто встречается.

[Odyssey]

А можно чуть-чуть поподробнее?

Например:

Код: Выделить всё

uses ... , LConvEncoding;
...
var Buffer: TStringList;
...
Buffer := TStringList.Create;
Buffer.LoadFromFile('file.txt');
Memo1.Text := CP1251ToUTF8(Buffer.Text);
FreeAndNil(Buffer);

Только с TStringList будут накладные расходы на разбивку/склеивание значений. Лучший способ (загрузка строки из файла напрямую) есть например тут.

[dunin]

Odyssey, проблем с концевыми символами строки не будет? Хотя если под Виндусом, то, скорее всего, без разницы.

Добавлено спустя 1 минуту 54 секунды:
Не, гоню. tStringList уже набор строк с правильным "окончанием". Полюбому все нормально.