Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=905455 Thu, 03 Nov 2005 14:54:01 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=905455 другим учасникам форума Jack128 отсылал сюда, но полемика продолжается
в теме Обратная Формат. Хотелось бы чтоб народ посмотрел все же реализацию
в архиве и покритиковал, дал дельные советы.


// Я ведь и обидется могу (комент. jack128)]]> ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=901324 Mon, 31 Oct 2005 08:56:05 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=901324 Цитата ugr @
и расскажи про ЗЫ и ИМХО, а то я новичок на форумах

это тебе сюда: Что такое сабж ?]]> Krid Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=901277 Mon, 31 Oct 2005 08:14:24 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=901277 Цитата Krid @
ЗЫ а где, кстати, svUtils и svConst? ;)

бери все, токо не бей :)

и расскажи про ЗЫ и ИМХО, а то я новичок на форумах :unsure:

А Соломона с Русиновичем я читал]]> ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=901025 Mon, 31 Oct 2005 00:23:39 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=901025 Цитата ugr @
Миллион строк сишные функции читают на моем Cel800 за 4 сек. Мой объект за 2.

Вообще в винде понятие скорости/времени выполнения участка кода - вещь относительная (если не сказать - эфимерная :) ). Причина - вытесняющая многозадачность (выполнение одного потока может быть в любой момент и на неопределённый период времени прервано другим потоком). Поэтому полагаться на какие-то измерения тут нельзя (в какой-то ситуации C'шная ф-нкция отработает намного быстрее твоей).
А твои классы я обязательно посмотрю и опробую, как только выдастся свободное время (в данный момент с этим у меня, увы, очень сильный напряг). Если это того стоит, то можно будет и в FAQ поместить.

ЗЫ а где, кстати, svUtils и svConst? ;)]]> Krid Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=900929 Sun, 30 Oct 2005 19:33:08 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=900929 Теперь к сути вопроса. Я когда-то давно программировал на С, но лавров не сыскал а потом в 95 перешел на Delphi и теперь жпть без него не могу. Но всеже мне нравиться как в С проработан ввод/вывод. Согласись! Круто! В Delphi 1,2,3,4,5 varargs не было,
я что стащил из TFiler'a, что из исходников Readln... Нувобщем получился тот объект, что в пристегнутом файле. Потом, когда начали упорно советовать varargs я понял, что что-то появилось, а я не заметил
:o Я перешел на седьмой и сравнил скорость. Миллион строк сишные функции читают на моем Cel800 за 4 сек. Мой объект за 2. У меня база в текстовом файле. Строка - объект.
Читать свойства, выполнять поиски...
Думал может кому еще интересно как бы с диском побысрее поработать. Да и этот объек позволяет "гулять по текстовому файлу как хочешь". Ты его попробуй он очень удобен. Вылезать токо его надо. Ну это дело времени. Хотел критики чтоб быстрее работать :unsure:]]> ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=899997 Sat, 29 Oct 2005 09:31:49 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=899997 ugr, а если не секрет - а зачем лисопед изобретать? В стандартной библиотеке C/C++ (это которая msvcrt.dll) имеются все нужные тебе ф-ции (как я понял). Причем они:
  • Легко подключаются к программам на Delphi (см. пример)
  • Оптимизированы по самое некуда - ну столько лет столько людей их оптимизировали! :)
  • Начиная с Windows 95 OSR2 эта библиотека идет как стандартная в поставке Windows (используется, например, Explorer'ом)

Так что повторюсь - а стоит все-же лисопед заново конструировать? Или может, все-таки лучше использовать готовые решения?

PS: если тебя чем-то не устраивает стандартная C'шная библиотека (я так понял, в данном случае о Delphi'йских ф-циях речь не идет) - обоснуй, плз., если не сложно... чем же она тебе так не угодила?]]> Krid Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=896430 Tue, 25 Oct 2005 23:24:45 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=896430 обозначения форматов не совпадают с Format. Переделал. Тестирую.
Прошу прощения, но в файле используются некоторые функции из
моей библиотеки, сори... Кто смотрел, увидел где заменить. Дотестирую выложу.
Правда жаль, что не прокоментировал никто. :(]]> ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=892923 Fri, 21 Oct 2005 19:37:09 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=892923 Цитата ugr @
Я все же хотел продолжить єту тему. Мне были приятны ваши ответы. С учетом того, что я работал на 5-ом Delphi, а там эта директива не поддерживается. Пришлось перейти на седьмой. Сравнил я скорости сишныш функций и своего крововатого ассемблера, последний выигрывает. Хотел поделиться с участниками форума этим объектом, да вот незнаю как сюда файл пристегнуть. Весь код в сообщение тащить как-то не очень. Может кому понадобиться, а может кто подрулит, чтобы красивее было и поделится.
Напишите кому интересна эта тема. :rolleyes:

Кажись нашел прикрепил смотрите может кому будет полезно]]> ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=892917 Fri, 21 Oct 2005 19:25:43 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=892917 Напишите кому интересна эта тема. :rolleyes:]]> ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=889716 Tue, 18 Oct 2005 21:27:57 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=889716 ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=886315 Sat, 15 Oct 2005 18:03:52 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=886315
    function cf_sscanf(buf:PChar; fmt:PChar):Integer; cdecl varargs;  external 'msvcrt.dll' name 'sscanf';
     
    procedure TForm1.Button1Click(Sender: TObject);
    var fmt, ds: string;
        i: integer;
        s: array[0..32] of Char;
    begin
      fmt := '%8d %32s';
      ds := Format(fmt, [1, 'privet']);
      cf_sscanf(PChar(ds),PChar(fmt),@i,@s);
      ShowMessage(IntToStr(i) + ', ' + s);
    end;
]]> Krid Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=886291 Sat, 15 Oct 2005 17:37:04 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=886291 Цитата ugr @
Эти функции принимают переменное число параметров

Попробуй воспользоваться директивой varargs.]]> Петрович Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=885893 Fri, 14 Oct 2005 21:23:50 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=885893 Но! С пробованием не очень получается :(. Эти функции принимают переменное число параметров. Я пробовал

    function cf_sscanf(s: PChar; fmt: PChar; Data: array of Pointer)
      : Integer; cdecl; external 'crtdll.dll' name 'sscanf';
     
    implementation
     
    procedure TForm1.Button1Click(Sender: TObject);
    var fmt, ds: string;
        i: integer;
        s: array[0..32] of Char;
    begin
      fmt := '%8d %32s';
      ds := Format(fmt, [1, 'privet']);
      cf_sscanf( PChar(ds), PChar(fmt), [@i, s] );
      ShowMessage(IntToStr(i) + ', ' + s);
    end;


не получается. Буду возиться дальше. Но если есть у кого мысли, на этот счет, напишите.]]> ugr Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=884877 Fri, 14 Oct 2005 04:13:18 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=884877
Цитата
sscanf C:\WINDOWS\SYSTEM32\crtdll.dll
sscanf C:\WINDOWS\SYSTEM32\msvcr70.dll
sscanf C:\WINDOWS\SYSTEM32\msvcr71.dll
sscanf C:\WINDOWS\SYSTEM32\msvcrt.dll
sscanf C:\WINDOWS\SYSTEM32\msvcrt20.dll
sscanf C:\WINDOWS\SYSTEM32\msvcrt40.dll
sscanf C:\WINDOWS\SYSTEM32\ntdll.dll
sscanf C:\WINDOWS\SYSTEM32\pncrt.dll

fscanf тоже.]]> s-mike Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=884795 Thu, 13 Oct 2005 20:36:06 +0000 Ввод / Вывод https://forum.sources.ru/index.php?showtopic=118072&view=findpost&p=884795 Как такую прелесть реализовать на паскале? :whistle:

К примеру, sprintf, fprintf можно заменить Format(fmtstr, [i, j, ... ]) - WriteLn(f, fmtstr),
т.е. ввывод както есть, а ввода не хватает.

Я писал с использованием assembler, но как-то кривовато получается :(]]> ugr Delphi: Общие вопросы