Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Различные показания, Far, TMemo, TStringlist 
:(
    Опции темы
stron
  Дата 24.10.2003, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Консультант
***


Профиль
Группа: Комодератор
Сообщений: 1654
Регистрация: 17.7.2003
Где: Питер

Репутация: нет
Всего: 36



сейчас тестирую прогу и выходят интересные рез-ты

например, при открытии файла 20030205.pnl
far видит 3802 строки,
в стринг лист загружается 1883 строки,
memo отображает 1883

при открытии файла 20030117.pnl
far видит 11559 строк,
в стринг лист загружается 148 строки,
memo отображает 148

показания memo и Tstringlist не отличаются где-то до 1900

файлы типа *.pnl - обычные текстовики


Код

datalist:=TStringlist.create;
datalist.LoadFromFile(Form1.PNLOpenDialog.Filename);
Form1.Label1.Caption:=inttostr(datalist.count);
Form1.Memo1.Lines.Assign(datalist);
Form1.Label1.Caption:=Form1.Label1.Caption+' '+inttostr(Form1.Memo1.lines.Count);


Кто знает в чём проблемаconfused.gifconfused.gif??




--------------------
подписи нет
PM ICQ   Вверх
Полудненко Олег
Дата 24.10.2003, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Українець
**


Профиль
Группа: Участник...
Сообщений: 556
Регистрация: 13.8.2003

Репутация: 1
Всего: -11



Вообще-то файлы *.exe тоже просто текстовые.
Файлы 20030205.pnl и 20030117.pnl одинаковые?
Попробуё открыть их как типизированые (например как чаровский)
PM MAIL   Вверх
Illusion Dolphin
Дата 24.10.2003, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63



просто, по-моему, Memo останавливается на определённой последовательности символов (EOF), а фар эти последовательности игнорирует... Если хочешь отобразить весь файл, то надо самому читать файл без использования EOF. Если не прав - поправьте...


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
stron
Дата 24.10.2003, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Консультант
***


Профиль
Группа: Комодератор
Сообщений: 1654
Регистрация: 17.7.2003
Где: Питер

Репутация: нет
Всего: 36



Пример инфы из файла:

PNL
FV954/14JAN LED PART1
CFG/000C019Y
RBD C/C Y/YMKVTGHLQUB
AVAIL
LED MMK
C000
Y001-
TRANSIT
MMK
C000
Y000
M000
K000
V000
T000
G000
H000
L000
Q000
U000
B000
-MMK000C
-MMK000Y
-MMK000M
-MMK007K
1BUDARIN/A MR .L/R2FC2 .R/TKTNO 1954201275053
..R/TKTNO 1954201275067
1GIRFANOV/I MR .L/RG5T9
1KOSTROMITINOVA/ELENA MRS .L/RL8VM
..R/TN 1954201261523 L393 CASH
1OVCHAROVA/E MRS .L/RJCY4
1PRESNUKHIN/I MR-A2 .L/RRLMX
1SAYFULLIN/N MR-A2
1YANOVSKAIA/NINA MRS .L/RKHDT .R/CD DOB 1945
..R/TKNO1954100507437
-MMK003V
1KIM/ANDREY MR .L/SGKCD .R/TKNO 195440806264
1KOLOSKOVA/ANGELIKA MRS .L/SG3P5 .I/FV732V14ARN1445RR
1SVESHNIKOV/VALERY MR .L/RKHGT .R/TKNO1954100507436
-MMK009T
1FURMAN/V MR .L/RNS49
1GRIBOV/MR-B2 .L/RB9E9 .R/TKTN 195 2401510660/661
1KURGANOV/U MR-C2 .L/RF1DT
1KUZNETSOV/DMITRY MR .L/RH0CJ .R/TKNO 5554218823417
..R/TKNM 5554218823417
1RASHA/P MR-C2
1ROCHTCHIN/S MR-B2
1SARIBEKOV/R MR .L/RRT0X .R/TKTN 195 4201281270
1SHULZHENKO/A MRS .L/RBEX4
1SUCHKOV/A MR .L/RBBCN .I/FV953T14MMK1025HK
-MMK000G
-MMK000H
-MMK001L
1WP/MESTA .L/RL98K .R/RQST HK1 MEST 19- 5DE 7A-E 8AB 10GDE
..RN/ 11GDE 16A 17GD
-MMK000Q
-MMK000U
-MMK000B
ENDPNL
***** 14.01.2003 16:35:00


--------------------
подписи нет
PM ICQ   Вверх
stron
Дата 24.10.2003, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Консультант
***


Профиль
Группа: Комодератор
Сообщений: 1654
Регистрация: 17.7.2003
Где: Питер

Репутация: нет
Всего: 36



Сделал всё по-простому

assignfile(data,Form1.PNLOpenDialog.Filename);
reset(data);
while not(eof(data)) do
begin
readln(data,s);
datalist.Add(s);
end;
closefile(data);

На memo забил, т.к. оно нужно только мне

получается, что
datalist.LoadFromFile( );
сделали убого!!!
З.Ы.: Спрашивается зачемconfused.gif?



--------------------
подписи нет
PM ICQ   Вверх
December
Дата 25.10.2003, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57



Цитата
Спрашивается зачем
Для открытия простых текстовиков.


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
stron
Дата 25.10.2003, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Консультант
***


Профиль
Группа: Комодератор
Сообщений: 1654
Регистрация: 17.7.2003
Где: Питер

Репутация: нет
Всего: 36



2December

в смысле простых?
маленьких что-ли?

Мои файлы обычные текстовые

Кстати, Delphi7 выдает рез-ты получше(против 5), но всё равно не идеал

Вот так!!


--------------------
подписи нет
PM ICQ   Вверх
December
Дата 26.10.2003, 01:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57



Цитата(stron @ 25.10.2003, 20:42)
в смысле простых?

Рассчитано на буквы, цифры и знаки препинания. Остальные символы типа не нужны smile.gif Предполагается, наверно, что будешь так закачивать только инишки всякоразные...


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
stron
Дата 26.10.2003, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Консультант
***


Профиль
Группа: Комодератор
Сообщений: 1654
Регистрация: 17.7.2003
Где: Питер

Репутация: нет
Всего: 36



Возможно.
Попробовал тупо вбивать в Memo каждую строчку-работает ужасно медленно и съедает не всё.

Ну да ладно, в принципе вопрос исчерпан(по крайней мере для меня)
Всем спасибо!!


--------------------
подписи нет
PM ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0577 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.