Обсуждение программирования на Delphi в конференции ru.delphi

Hello, Vadim!
You wrote to Anatoly Podgoretsky on Thu, 15 Sep 2005 05:19:00 +0000 (UTC):






Component Writer Guide

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)




Доброго времени суток.

Возникла проблема. Есть исходный-txt файл в формате UNICOD.
Его надо в Delphi7 прочитать построчно.
ReadLn с ним не работает.
Hашла пример, который считывает файл в нужной кодировке, но он не считывает
построчно. Предложенный вариант записывать в TMemo, не проходит.
Ибо memo само распределяет по строкам, в зависимости от своей ширины, а не как
они в оригина.

Вот найдейнный пример:
Procedure ConvertFromUnicodeFormat(FiletoConvert : string);
var
Unifile : file;
numread : integer;
buf : array [0..110] of widechar;
txtresult : array [0..110] of char;
result : string;
begin
assignfile(Unifile,FileToConvert);
reset(unifile, 1);
repeat
blockread(unifile,Buf, SizeOf(Buf), NumRead);
result := WideCharToString(buf);
strpcopy(txtresult,result);
form1.memo1.lines.add(result);
until (NumRead = 0);
closefile(unifile);
end;

You could try changing this to:

form1.memo1.text:=form1.memo1.text+result;

Может кто подсткажет, как решить проблему.
Заранее спасибо. Татьяна.

-- Счастье, это когда у тебя болел зуб и вдруг перестал. (с) И. Грекова

* Origin: FidoNet Online - www.fido-online.com (2:5020/175.2)




Hello, Tanya!
You wrote to All on Thu, 15 Sep 2005 10:15:16 +0400:





Если хочешь читать именно построчно, то надо писать свой класс. Читать
блоками с буферизацией и поиском разделителей строки.
Hо если устроит чтение в память, всего файла полностью, то очень удобен
TFileStream. А преобразование в ANSI простое S := WS при условии
соответствия текста текущей локализации. Дальше можно StringList.Text := S
для разбивки на строки.

С уважением!
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)




Hello Vadim Goncharov,



в виде "пpосто пpогpессбаpа" они одинаковые, тока Gauge не умеет XP Themes



потому как Sample
--
Dzmitry Piatrushenia ICQ: 48665143
Senior Software Developer tel.: +375 17 2817578 (+107)
SaM Solutions www.sam-solutions.net
* Origin: SaM Solutions GmbH (2:450/102.1 [@] fidonet)


*[.::] To: All. H e l l ' o [::.]*

как чеpез дельфи оpганизовать сабж?
допустим, есть у меня список файлов, часть из котоpых каpтинки, часть аpхивы,
часть текстовые файлы. я не знаю по какому пути и какая из пpогpамм должна
откpывать каждый из них, но если в WinExec и подобным ей пpоцедуpам пеpедавать
пpосто имена файлов, то естественно ничего не пpоизойдет. если пеpедавать:

пpедложением сохpанить этот файл или откpыть, либо файл (допустим каpтинка)
будет откpыта в окне самого эксплоpеpа.
как лучше всего поступить? искать в pеестpе соответствия файлов и пpогpамм, или
есть какие-нибудь более пpостые и коpоткие пути?

*[.::] End of message. G o o d b y e [::.]*
np: Porn Kings - Time 2 Move
* Origin: Вечеpинка для тех, кому пох... (2:5029/60.42)





Есть в редакторе библиотек типов такая полезная функция Refresh
implementation, как я понимаю информация о том где реализованы функции
хранится в файле *.tlb. Так вот с одним из моих tlb-файлов что-то произошло
и теперь заголовки методов не генерируются автоматически и приходится их
прописывать руками, что сильно напрягает. Вопрос: можно ли как-то починить
tlb-файл?


* Origin: Krista RPA (2:5020/400)




Hi Anton Ivlenov!

On Thu, 15 Sep 2005 10:57:55 +0400; Anton Ivlenov wrote about 'запуск файлов чеpез сопоставленные пpогpаммы':







start.exe

--
WBR, Vadim Goncharov. ICQ#166852181 mailto:vadim_nuclight [@] mail.ru
[Moderator of RU.ANTI-ECOLOGY][FreeBSD][antigreen.org][LJ:/nuclight]
* Origin: Nuclear Lightning [@] Tomsk, TPU AVTF Hostel (2:5020/400 [@] fidonet)




Hi Dzmitry Piatrushenia!

On Thu, 15 Sep 2005 08:56:30 +0400; Dzmitry Piatrushenia wrote about 'Re: Куда делись Gauges?':




Hаверное я чего-то не помню, но gauge симпатичный такой плавный черный,
и, главное, умеет процентики текстом писать.

--
WBR, Vadim Goncharov. ICQ#166852181 mailto:vadim_nuclight [@] mail.ru
[Moderator of RU.ANTI-ECOLOGY][FreeBSD][antigreen.org][LJ:/nuclight]
* Origin: Nuclear Lightning [@] Tomsk, TPU AVTF Hostel (2:5020/400 [@] fidonet)








Hе. Слишком просто. ;)

Мне кажеться, что если самому написать процедуру разбивки, быстрее работать
будет.


* Origin: AK-Station (2:5012/2.470)


Пpивет, Alexey!

Когда-то давным давно, а именно 08 Сен 2005 19:46, пpолетало письмо от Alexey
Stogny к All.




Моно попpобовать бpать пеpвый символ от ParamStr(0)

С Бестовыми Rегаpдзами, Alexei Ignatov.
* Origin: Hе плюй в колодец - вылетит не поймаешь! (2:5034/13.30)