Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];
Внизсовместимость версий Делфи Найти похожие ветки
← →
neveGreen (2008-12-20 18:07) [0]вот начал изучать книгу Бакнелл. Фундаментальные алгоритмы и структуры данных в Делфи. Очень хорошая книга, да вот примеры все не под седьмую версию, а она как раз у меня и стоит. Может кто сталкивался с проблемой и знает какие модули подключить, чтобы работали все примеры и мне больше не мучаться, а то я и первый не могу запустить:
function SeqSearch(aStrs : PStringArray;
aCount : Integer;
const aName: String5 ): Integer;
var i : Integer;
begin
for i := 0 to pred(aCount) do
if CompireText(aStrs^[i], aName) = 0 then begin
Result := i;
Exit;
end;
Rresult := -1;
end;
Заранее благодарю.
← →
Поросенок Винни-Пух © (2008-12-20 18:14) [1]чтобы не мучиться, надо просто сообразить, что если какой-то тип не распознается, то надо найти *.pas файл, в котором есть текст <имя_неизвестного_типа_или_класса>
и что искать может компьютер, потому что он железный
← →
Поросенок Винни-Пух © (2008-12-20 18:21) [2]хотя compiretext скорее всего даже виндовый тузик не найдет.
он же английский знает
← →
Правильный$Вася (2008-12-20 18:29) [3]
> String5
не знаю такого типа
видать, в других модулях на диске с книжкой описан
ищи там, читай подряд книжку, а не выборочно
← →
neveGreen (2008-12-20 18:41) [4]
> Правильный$Вася (20.12.08 18:29) [3]
я и читаю подряд, вначале автор написал, что весь код протестирован на версиях делфи 1-6 все работает... а мне надо на седьмой, разница лишь в том, что в семерке некоторые функции были перенесены в другие модули, а я не знаю в какие
← →
Сергей М. © (2008-12-20 18:57) [5]
> я и первый не могу запустить
Рискну заявить, что причиной тому банальные очепятки в тексте примера, который ты скопипастил и процитировал здесь, а не в каких-либо "переносах"
← →
neveGreen (2008-12-20 19:09) [6]
> Сергей М. © (20.12.08 18:57) [5]
Ага, сорри, но
PStringArray и String5 в книге точно...
Значит в книге очепятки?
← →
Сергей М. © (2008-12-20 19:24) [7]Судя по String5 очень на то похоже.
Надо быть полным идиотом, чтобы рамеренно объявить такой тип, да еще в учебнике, да еще и по фундаметам)
PStringArray в Д7 точно нет.
CompireText - это вообще откровенный ляп, таких словов попросту не бывает, а бывает Compare (от англ. "сравнивать")
← →
Тын-Дын © (2008-12-20 19:37) [8]
> neveGreen (20.12.08 19:09) [6]
> > Сергей М. © (20.12.08 18:57) [5]Ага, сорри, ноPStringArray
> и String5 в книге точно... Значит в книге очепятки?
Что за книгу ты читаешь? В каком виде?
← →
neveGreen (2008-12-20 19:48) [9]
> Тын-Дын © (20.12.08 19:37) [8]
Creatyed by ScanKromsator
pdf ver 4.1
ну PStringArray это уж сильно мощная очепятка
← →
Сергей М. © (2008-12-20 19:52) [10]
> все не под седьмую версию
А под какую ?
← →
neveGreen (2008-12-20 20:05) [11]
> Сергей М. © (20.12.08 19:52) [10]
автор тестировал все на версиях 1 - 6, при этом он указывает, что в некоторых примерах он дает директивы компилятору с информацией о версии, но в этом примере нет таких директив. Более того, в следующем примере тоже есть типы PStringArray и String5.
← →
Тын-Дын © (2008-12-20 20:12) [12]
> neveGreen (20.12.08 20:05) [11]
На какой странице пример этот?
← →
Сергей М. © (2008-12-20 20:17) [13]
> neveGreen (20.12.08 20:05) [11]
А что, примера вызова функции автор не приводит ?
← →
neveGreen (2008-12-20 20:30) [14]
> На какой странице пример этот?
22
> А что, примера вызова функции автор не приводит ?
увы, пока нет... щас я на 31, и судя по тексту уже не будет приводить, разве что позже в следующих главах
← →
Сергей М. © (2008-12-20 20:35) [15]Ну хорошо, а от нас ты собссно что хочешь ?
Ответы тебе ведь уже даны - опечатки налицо, а прочее (то что не похоже на опечатки) можно выяснить только имея под рукой все версии Делфи, указанные автором этого шедевра, либо пролистав весь шедевр в надежде найти там недостающие декларации ..
← →
neveGreen (2008-12-20 20:44) [16]ну ладно, всем спасибо...
← →
Тын-Дын © (2008-12-20 20:45) [17]
type
PStringArray=^TStringArray;
TStringArray=array of String;
← →
neveGreen (2008-12-20 20:48) [18]
> Тын-Дын © (20.12.08 20:45) [17]
спасибо, думаю это будет далее в книге... или Вы уже посмотрели? :)
← →
Anatoly Podgoretsky © (2008-12-20 20:54) [19]> neveGreen (20.12.2008 18:41:04) [4]
Если судить по этим вещам
if CompireText
Rresult := -1;
То вряд ли автор к этому имеет отношение и в любом случае нет никакого доверия к остальному тексту.
← →
Сергей М. © (2008-12-20 21:00) [20]
> вряд ли автор к этому имеет отношение
Эт точно.
Переводчика вместе с его шедевром - фтопку)
← →
neveGreen (2008-12-20 21:03) [21]
> Anatoly Podgoretsky © (20.12.08 20:54) [19]
нет, это лично мои опечатки
все прекрасно с примером кроме:
PStringArray и String5
← →
Тын-Дын © (2008-12-20 21:04) [22]
> Эт точно.Переводчика вместе с его шедевром - фтопку)
Это распознавание текста глючило.
У меня в PDF всё нормально.
> neveGreen (20.12.08 20:48) [18]
> > Тын-Дын © (20.12.08 20:45) [17]спасибо, думаю это будет
> далее в книге... или Вы уже посмотрели? :)
Этого вообще нет там.
Не знаю, зачем автор привёл этот код. Но скорее всего, чтобы привести пример сравнения алгоритмов и методов оих оценки.
← →
Anatoly Podgoretsky © (2008-12-20 21:05) [23]Я не знаю откуда этот пример из книги, или с диска.
Примеры конечно очень часто страдают описками, опечатками, поскольку таклй простой код не проверяют в компиляции. А в книге еще и дополнительные опечатки, которых может не быть на диске.
← →
Тын-Дын © (2008-12-20 21:05) [24]Да, String5 и у меня есть. Но остальных опечаток нет.
← →
Тын-Дын © (2008-12-20 21:05) [25]
> Anatoly Podgoretsky © (20.12.08 21:05) [23]
> Я не знаю откуда этот пример из книги, или с диска.
На диске нет примера такого.
← →
Anatoly Podgoretsky © (2008-12-20 22:21) [26]
> нет, это лично мои опечатки
Тогда смениString5 на String
CompireText на CompareText
Rresult на Rresult
и
> Тын-Дын © (20.12.08 20:45) [17]
> type
> PStringArray=^TStringArray;
> TStringArray=array of String;
← →
neveGreen (2008-12-21 00:53) [27]спасибо все сделал :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.005 c