Delphi

[Гость]

читайте МСДН, дельфятники. Экономия на инете получится. Если не из инета читать, конечно.

[Гость]

читайте МСДН, дельфятники. Экономия на инете получится. Если не из инета читать, конечно.
А в списке тем под названием топика мелкими буковками написано "объектно-ориентированный язык." Братцы, а разве Делфи -- язык?! Может Вижуал Студия тоже язык?

Делфи -- это среда разработки. Одним из основных ее компонентов являеццо компилятор объектно-ориентированного языка Object Pascal.
Представьте программера, усвоившего, что Делфи -- язык. Да еще брякнет при устройстве на работу, что он владеет языком Делфи. Эта не мелочь испортит впечатление.

MSDN == Microsoft Developers Network.

MSDN Library -- комплект документации от Майкрософт по всем вопросам программирования в среде Виндус. Ну тока про драйверы и директ-х щас там не пишет. Для разработки драйверов ДДК=Драйверс-Девелопмент-Кит, для директ-х помогаит директ-х-сдк. МСДН -- просто маст-хэв для любого виндус-программиста. Все вопросы из этой темы в МСДНе находяццо поиском. Веб-морда этой мсдн -- http://msdn.microsoft.com/m

МСДН с делфи обычно не поставлялся. Тока ублюдочное Вынь32-Программерс-Референс. А в 2005 и 2006 делфи кусочег мсдн уже есть.

[Alex ilmarranen]

2CY Хоть хто-та миня понимаетъ… Риспектъ чувакъ… ))) А то я тутъ программерамъ объяснял-объяснялъ про Object Pascal они таГъ и не поняли… ))

[Гость]

2CY Хоть хто-та миня понимаетъ… Риспектъ чувакъ… ))) А то я тутъ программерамъ объяснял-объяснялъ про Object Pascal они таГъ и не поняли… ))

Такие они видно пока программеры. Мож плюсом и отметил бы мое безвозмездное творчество и просветительскую работу здесь? Зайдут пацаны чужие будут глумиться. Лучше я свой, родной, скажу по-доброму

[DimMan]

2Sir. Milton для начала куда?

ЗначеТъ такъ…

ИмееЦо стандартная процедура(для нетипизированныхъ файловъ) BlockRead(F,Buf,SizeBuf)… Где вроде бы всё понятно… Да вотъ только минимальный размер SizeBuf = word, то есь 4 байта… А нуно побайтно… Чё делать…? Нетипизированные файлы … Причёмъ структура файла неизвестна… точнее произвольна… Т.к. задавалась не мной…

Help!

Нетипизированные файлы - это принципиально

Как раз типизованные, только тип char

[Alex ilmarranen]

2DimMan Не понелъ.. Почему типизированный?

[DimMan]

кстати код лучше обрамлять тегами code для удобочитаемости
и чтоб движок форума не съел нужный кусок текста

2DimMan Не понелъ.. Почему типизированный?

ща Д поставлю с примером объясню

[Гость]

2DimMan Не понелъ.. Почему типизированный?

Димман о том, что по байтам (char) можна читать любой файл. В этом смысле любой хвайл типизированный. file of char типа что ли

Ну или в блокриде возиццо с масками и сдвигами и нетипизированные указатели.

кстати код лучше обрамлять тегами code для удобочитаемости
и чтоб движок форума не съел нужный кусок текста

2DimMan Не понелъ.. Почему типизированный?

ща Д поставлю с примером объясню

А не посадют? Или у тя купленная?


или чтобы не долбаццо с масками и сдвигами делаешь так:

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

var
   Data: word;
   DataAsFourBytes: array[1..4] of byte absolute Data;


[DimMan]

file of char типа что ли

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

А не посадют? Или у тя купленная?

TURBO DELPHI

триальная

[Alex ilmarranen]

Ога… спасибо… ))
Слушайте… я чёта туплю….
Дайте алгоритм перевода изъ двоичной системы въ десятичную…

[Гость]

file of char типа что ли

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

ну пропырцально хрен его знаит тов. командир… У винта есть упреждающее чтение,
размер линии в кэше далеко не 1 байт, плус совр. контроллеры динам. памяти тожа не пальцем сделаны. Ваще лучше читать файл покластерно, кааца так МСДНе сказано.

А ваще тема убойная -- файлы, отображаемые на память. Почитайте про это! Ну очень мобыть удобно.

file of char типа что ли

А не посадют? Или у тя купленная?

TURBO DELPHI

триальная

Даааа, уже на хромой козе не объедешь. Грамотные все… А жаль! Мне бы борланды мож чего за голову пирата подарили. Хотя они могут предложить тока свою голую задницу. А она мне нах?

[Alex ilmarranen]

Всё… не надо… самъ догналъ… )))

[Гость]

Ога… спасибо… ))


Слушайте… я чёта туплю….
Дайте алгоритм перевода изъ двоичной системы въ десятичную…

а дели на два пока делиццо. И все.
Да по порядку выписывай результат.
Вместо деления на два, можешь сдвигать влево на разряд.
последней двоичной цифрой возьми не остаток а частное.

====================================================
Сорри это из десятичную->двоичной

А как ты хочешь по формуле
ЧислоВ10 = ЦифраN * 2 в степени (N) + ЦифраN-1 * 2 в степени (N-1) и т.д.
цифры нумеруем с нуля.
степени двойки мона получать сдвигами вправо.

[DimMan]

Дайте алгоритм перевода изъ двоичной системы въ десятичную…

https://forum.com/denet.ru/showthread.php?threadid=23946

[Гость]

интересует как на дельфи сделать, что бы прога сама распазновала картинку и сама ее вводила на примере би или мтс если знаешь как,напиши?

Поисчи кааампаааненту!
Алгоритмы выделения границ, статистические распознаватели, нейронные сети… Нуу это для начала. Теперь я подсказал. Сочиняй. Вот это все завязывай в тугой узел. Правда там на картинках по возможности полосочки всякие пихают, чтобы первому пункту в душу насрать.

[Гость]

што паскаль, што их ИДЕ Дэлфя, что Си Билдер, что ВЕСЬ Борланд просто suckzzz

воротит, када вижу бегины и энды

и билдера тоже касается, ткните в своей ИДЕ на объявление любой кнопки и "Гоу ту дифинишн", увидите, как эта чудо кнопка описана для языка СИ на языке OBJECT PASCAL.

даже алиасы делфёвые бесят: как-то искал простенький алгоритм асинхронного анализа изображений, увидел в объявлении алиас DELPHI (эт stdcall по-нашему), сразу страницу закрыл))

[Гость]

читайте МСДН, дельфятники.

Вопрос:
Ставлю MSDNiXP (Версия 2.0.50727.42)
Требует NET. Frame Work 2.0 Посттавил
Требует MS Visual Studio Express - подскажите где его взять, тк ссылка labs.msdn.microsoft/express не пашет

[Гость]

Требует MS Visual Studio Express - подскажите где его взять, тк ссылка labs.msdn.microsoft/express не пашет

http://www.microsoft.com/Rus/Msdn/vstud ... fault.mspx
я б тебе все записал, но как это сделать, сохранив остатки анонимности?
Ватутина из политеха знаешь?

[Alex ilmarranen]

Вопросъ….
стандартная функция Exp(Y) есть експонента(е.. - число всмысле…) въ степени Y…. Прально ведь?

[мисс_граффити]

Именно так.
А что тебя смущает?

[Alex ilmarranen]

Ды чегото не получается… )) ну да ладно.. щасъ поперефтыкаю… )) гдето ошибся…

А вообще страннное это опрделение понятия экспоненты… Однимъ словомъ называется и сам процесъ возведения въ степень больше 2 любого числа… так же называется число е… ))) барада какая-та… Понапутали математики хреновые… ))

[мисс_граффити]

ты чего????
какого такого ЛЮБОГО числа?????
только числа e!
то есть exp(1)=e
exp(2)=e^2 (^ - типа степень)

степени остальных чисел считаются и называются иначе
что тебе надо посчитать-то?

[Alex ilmarranen]

Чесъ слово.. ))) Въ учебникахъ по математике такъ написано… ))

Ды это по модели Раша подсчёты… Это короче статистическая обработка… )))

З.Ы. Я тебе потомъ выдержки изъ учебника приведу.. какъ найду…

[Alex ilmarranen]

Вопросъ следующий… Какъ сделать диалогъ, который указываетъ именно путь къ дирректории а не файлу…

[Anri]

Вопросъ следующий… Какъ сделать диалогъ, который указываетъ именно путь къ дирректории а не файлу…

самому что-ли написать или вызвать стандартный?

Как использовать Shell API SHBrowseForFolder

Как использовать функцию Shell API SHBrowseForFolder чтобы позволить пользователю выбрать каталог?

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

uses ShellAPI, ShlObj;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
 TitleName: string;
 lpItemID: PItemIDList;
 BrowseInfo: TBrowseInfo;
 DisplayName: array[0..MAX_PATH] of char;
 TempPath: array[0..MAX_PATH] of char;
 begin
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 BrowseInfo.hwndOwner := Form1.Handle;
 BrowseInfo.pszDisplayName := @DisplayName;
 TitleName := 'Please specify a directory';
 BrowseInfo.lpszTitle := PChar(TitleName);
 BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then
 begin
  SHGetPathFromIDList(lpItemID, TempPath);
  ShowMessage(TempPath);
  GlobalFreePtr(lpItemID);
 end;
 end;


(с) https://soft32.ru/delphi.shtml?topic=files&title=shbrowseforfolder