Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Это нужно знать, записки диверсанта 
:(
    Опции темы
THandle
Дата 23.3.2008, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Приветствую всех свободны писателей этой группы!!! smile 

У новичков очень часто бывают залблуждения относительно вопросов программирования на Делфи.

В данной теме мы попробуем создать список наиболее часто встречающихся заблуждений и написть по ним небольшой рассказ от имени молодого "диверсанта" взявшегося постигать глубины Дефли. На пути у него будет много сложностей(как раз это и есть наш список заблуждений), и он будет их решать, и что самое удивительное, всегда будет решать неверно.
После такого "обучения" он придет на сей славный форум и начнет советовать другим свои неверные решения. 
Наши доблестные ребята укажут ему в чем он не прав и помогут ему с его неверным кодом, исправят, объяснят, и вскоре наш "диверсант" поймет всю правду правду жизни и встанет на верный путь.


Вот такой вот вкратце сюжет нашего рассказа. Писать его я берусь(не получится - сформулируем по-другому smile ), а в данной теме как раз таки собираем заблуждения.
Тут можно представлять как уже готовые заблуждения(красиво написанные, прозаичные и тд.), а можно просто давать код, к которому напишем объяснение и тд.


Значит так, нашел пока только следующее, тороплюсь, завтра еще выложу:

Циклы работы со строками начинай с нуля, а заканчивай длиной строки минус 1:

Код

var
  s : string;
  i : integer;
begin
  for i := 0 to Length(s) - 1 do
    s[i] := ...;
 end;


А циклы со списками начинай с 1 до List.Count:

Код

var
  List : TSomeList;
  i : integer;
begin
  for i := 1 to List.Count do
    List.Add(...);
end;


Сейчас поищу, что то наверное папку с этими заблууждениями удалил smile 


За флуд в данной теме всем будут выставлены минус!!! Так что не флудим товарищи(на всякий случай).

Добавлено через 13 минут и 36 секунд
Конструктор объекта надо вызывать в блоке try..finally..end;

Код

var
  SomeClass : TSomeClass;
begin
  try
    SomeClas := TSomeClass.Create;
    //что то делаем
  finally
    SomeClass.Free;
end;


Это сообщение отредактировал(а) THandle - 23.3.2008, 20:11
PM   Вверх
SneG0K
Дата 23.3.2008, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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



Оператор with..do

Изучая дельфи по Фленову, я узнал много, много, чего даже не стоит знать) И только благодаря Thandle я стал на путь истинный! Так, что лучше купить Пачеко, чем Фленова.

Так вот, из всего того я не знал про оператор with..do... И в многих примерах пугался его и переписывал!

Давай создадим некую структуру
Код

structure = record
first:string;
second:string;
end;
TStructure=^structure;


Как бы мы заполняли эту структуру?
Код

var
 s:TStructure;
.....
 s.first:='first element of structure';
 s.seconf:='second element of structure';
\\И в том же духе

Но можно сделать это немножко в меньше кода
Код

with s do
 begin
  first:='First element';
  second:='Second element';
 end;

Вообщем надеюсь суть понятна. Оператор with..do позволяет получить доступ к переменным какой-либо структуры или юнита, без указания такового) Разницы то в общем нет, но иногда юнит или структура имеет такое "красивое" название...
Так же можно делать так
Код

 with Structure1,structure2 do
 end;

Что позволит получить доступ к переменным Structure1 и structure2.... Вообщем ничего сложного)

Это сообщение отредактировал(а) SneG0K - 23.3.2008, 20:40
PM WWW Skype   Вверх
THandle
Дата 23.3.2008, 20:36 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Цитата(SneG0K @  23.3.2008,  20:31 Найти цитируемый пост)
Так же можно делать так
Выделить всёкод Pascal/Delphi
1:
2:
    
 with Structure1,structure2 do
 end;

Что позволит получить доступ к переменным Structure1 и structure2.... Вообщем ничего сложного) 


Вот это уже сюда подходит))) Именно так я считаю делать не надо, и многие заблуждаются.

Попробуй например:

Код

with Button1, Label1 do
   Caption := 'SomeText';




Очень любопытно получается. smile 
PM   Вверх
THandle
Дата 24.3.2008, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Значит так, вот еще пара штук:


1. Не стоит удалять динамически созданные объяекты, Делфи умный, он сам их удалит, лучше заняться чем-нибудь более интересным.


2. Чем больше кода ты запихнешь в Synchronize своей дополнительной нити, тем быстрее она будет работать. 

PM   Вверх
THandle
Дата 28.3.2008, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Начало почти готово Думаю в понедельник вторник выложу. smile 

Вот еще:

Создавать объект надо так:

Код

var
  SomeObject : TSomeObject;
begin
  SomeObject.Create(...);
end;


а не так:

Код

var
  SomeObject : TSomeObject;
begin
  SomeObject := TSomeObject.Create(...);
end;



Напомню, что все советы тут являются довольно таки вредными, и понимать их надо буквально наооборот. smile


И народ, давайте чтоли уже поактивнее smile 
 

Это сообщение отредактировал(а) THandle - 28.3.2008, 12:11
PM   Вверх
SneG0K
Дата 28.3.2008, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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



Некий прикол с if..then

Если мы напишем 
Код

if true=true then

ТО это будет абсолютно аналогично
Код

if true then

Но не будет аналогично
Код

if true=false then
Вообщем если переменная должна равняться труе, то можно и не указывать труе))) Оно как бы там по стандарту)) Но если переменная будет равна фалсе, то надо приравнивать к фалсе)))
PM WWW Skype   Вверх
THandle
Дата 30.3.2008, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Цитата(SneG0K @  28.3.2008,  12:54 Найти цитируемый пост)
Некий прикол с if..then

Никакого прикола собсно и нету))

Вот еще одно:

Уничтожаем объект в своем же обработчике. Например:

Код

procedure Button1OnClick(Sender : TObject);
begin
  Button1.Free;
end;

PM   Вверх
SneG0K
Дата 31.3.2008, 15:13 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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



Приложение с параметрами

Все параметры, с которыми приложение было запущено содержатся в 

Код

ParamStr(index)
, где index указатель на текущий параметр. Например создай новое приложение и в обработчике формы OnCreate напиши
Код

Form1.Caption:=ParamStr(0);
Скомпилируй и сохрани на диск. Теперь создай bat-файл в той же папке где и скомпилированная программа и напиши в нем
Код

open Project1.exe hello world
И получиш ты ТОЛЬКО hello. world уже будет содержаться в 
Код

ParamStr(1);


Добавлено через 3 минуты и 41 секунду
Забыл сказать отсчет параметров начинается с 0, а не с 1. Но это не значит, что cmd.exe, php.exe, perl.exe и другие получает весь код в параметрах smile Они просто получают указатель на файл, в котором содержится код smile 
PM WWW Skype   Вверх
THandle
Дата 31.3.2008, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Цитата(SneG0K @  31.3.2008,  15:13 Найти цитируемый пост)
Приложение с параметрами

Все параметры, с которыми приложение было запущено содержатся в 

...


SneG0K, все это не относится к обсуждаемой теме, и описано в DRKB, а может даже и тут, где - нибудь в факе. Поищи поиском и наищешь искомое.



PM   Вверх
SneG0K
Дата 31.3.2008, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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



Цитата(THandle @  23.3.2008,  19:08 Найти цитируемый пост)
Циклы работы со строками начинай с нуля, а заканчивай длиной строки минус 1:

Обьясняю, в строках первый символ содержит длину всей строки. Поэтому правильная длинна строки будет length(строка)-1

Это сообщение отредактировал(а) SneG0K - 31.3.2008, 23:48
PM WWW Skype   Вверх
THandle
Дата 5.4.2008, 21:20 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Значит так, у Len ничего написать не получилось поэтому взялся я smile 


Вот вступление:



  Жил-был один человек, звали его допустим  Иван. Было ему от роду 16 годков. Жил он не бедно – не богато, учился в школе, на двойки. Одеваться любил он модно, был высокого роста и имел гладкие светлые волосы. Жил он себе припеваючи, играл в игры компьютерные, пиво пил с девчонками на дискотеках, в общем был Ваня самым обычным нормальным парнем. 
  Был у Ивана друг, крутой программист и хакер. Хвастался он перед Иванушкой нашим, хвастался. И как иконку в трей запуздырить показывал, и как программку в 30 килобайт забабахать. И говорил этот друг что все это братец, мол, Делфи, круто оно, возьмись, изучай.
  Задумался тут Иван. Будучи по натуре своей человеком любознательным решил он попробовать поучится работать с этой программой. Взял он у друга дистрибутив, установил и сидит, смотрит. Кнопочки какие-то, надписи не русские. Среди всего этого выделялась красивая кнопочка с изображенным зеленым треугольничком. Решил Иван – тыкну её, будь что будет. И тыкнул. Результат был ужасный -
появилось окошко, ну прям как у друга, надпись на нем – Form1, если мышом взять за верхушку – поползет, поползет – берегись - улетит! 
  Обрадовался наш герой, побыстрее выключил компьютер, побежал всем хвастаться что программу написал. И решил с этого момента Ваня твердо – стать программистом, и дело с концом. Вернувшись вечером домой включил он компьютер, полез в Интернет, нашел там книжки по Делфи и стал усердно изучать их. 
  Далее поведаем мы вам сказ о том, какие трудности встали на пути Ивана, и как он их преодолел.

PM   Вверх
THandle
Дата 15.4.2008, 20:54 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Всё времени никак не хватает написать... думаю либо в конце этой, либо в начале следующей недели будет продолжение smile 

И на всякий случай, для некоторых, напоминаю, все советы приведенные тут, являются вредными, то есть понимать их нужно прямо наоборот. Например:


Цитата(THandle @  23.3.2008,  21:08 Найти цитируемый пост)


Циклы работы со строками начинай с нуля, а заканчивай длиной строки минус 1:

    
Код

var
  s : string;
  i : integer;
begin
  for i := 0 to Length(s) - 1 do
    s[i] := ...;
 end;



А циклы со списками начинай с 1 до List.Count:
    
Код

var
  List : TSomeList;
  i : integer;
begin
  for i := 1 to List.Count do
    List.Add(...);
end;



Надо понимать так:


Циклы работы со строками начинай с 1, а заканчивай длиной строки length(string).

Код

var
  s : string;
  i : integer;
begin
  for i := 1 to Length(s) do
    s[i] := ...;
 end;



А циклы работы со списками начинай с 0 и заканчивай List.Count - 1.

Код

var
  List : TSomeList;
  i : integer;
begin
  for i := 0 to List.Count - 1 do
    List.Add(...);
end;


PM   Вверх
THandle
Дата 23.4.2008, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



Оказалась не легким делом писать все это. Но уже многое готово smile Скоро постараюсь выложить.

Вот еще одна ошибка, которая вызывает у новичков недоумение:

Почему компилятор ругается на безобидный цикл for?

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to 5 do
    begin
      ShowMessage(IntToStr(i));
      i := 5;
    end;
end;


Ответ:
Да патамучта нильзя в цикле for менять значение переменной счетчика.


А вот и еще одно:

В таком цикле:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  s : string;
begin
  s := 'Очень, ну очень длинный текст';
  for i := 1 to Length(s) do
    ShowMessage(s[i]);
end;



Будет очень много раз вызываться функция length, что сделает программу очень медленной.
На самом деле это не так. Начальное и конечное значение цикла for расчитывается только один раз, при начале его выполнения.

Поэтому выносить длину строки в отдельную переменную глупо:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  s : string;
  len : integer;
begin
  s := 'Очень, ну очень длинный текст';
  len := length(s);
  for i := 1 to len do
    ShowMessage(s[i]);
end;


Поэтому стоит быть очень осторожным, когда в таком цикле удаляется часть строки, например:

Эта процедура по идее должна удалять пробелы:

Код

procedure delspace(var s:string);
var i:integer;
begin
  for i:=1 to length(s) do
    if s[i]=' ' then delete(s,i,1);
end;


Однако же все пробелы она не удалит как раз по причине единичного расчета значений цикла.

Подробнее об этом я писал тут:

http://forum.vingrad.ru/forum/topic-206543.html




Ну и ребят, кто тут бывает, поактивнее предлагайте "заблуждения". Проект не заброшен и заброшенным быть не собирается. smile 
PM   Вверх
SneG0K
  Дата 29.4.2008, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

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



THandle ток не ругай меня smile 

 Так-с... Может нижеописанное и не относится к начинающим программистам, но это относится к начинающим WinSOCK'ерам. 
У меня с самого начала изучения дельфи как-то появилась мания использовать стринговые переменные, что иногда очень удобно, а иногда является источником всех бед. 
 Так вот, моя первая сетевая программа ничем необычным не отличалась, она просто передавала какие-либо данные от клиента, к серверу и обратно. Вообщем все просто. В качестве буфера я использовал стринговую переменную. И получал в неё данные как в буфер.

Код

var
 s:string;

....

 recv(sock, s, 256);
В итоге текст получался нечитаемым. 
Код

var
 s:array[0.255] of char;

....
 
 recv(sock, s, 256);
При замене на массив чаров текст нормализовался и стал читаемым... 
Но я не остановился и решил понять почему текст в стринговой переменной превращается в неизвестно что... Понять почему я так и не смог. Наверно кодировки тут сыграли свою роль. Или переменные... Вообщем неизвестно. Но 
Код

var
 s:string
....
 recv(sock, @s, 256);
Вообщем, указывать стринговую строку надо как указатель... 


Внимание! Это из дневника Грозного Ивана...
PM WWW Skype   Вверх
THandle
Дата 30.4.2008, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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



SneG0K, Иваном будешь? smile 

Твой пример вполне подойдет, если использовать его для объяснения работы со строками.
Если сможешь оформить в виде рассказика с объяснением что как и куда использовать - то буду очень радsmile

Вобщем список заблуждений сейчас такой:

1. Работа со строками в цикле. Почему с 1, а не с 0.
2. Работа со списками. Почему с 0, а не с 1.
3. Почему конструктор надо вызывать не как обычный метод?
4. Почему конструктор надо вызывать до try..finally..end?
5. Почему нельзя уничтожить объект в своем же обработчике?
6. Почему надо вызывать не Destroy, а Free?
7. Почему в цикле for нельзя менять значение переменной-счетчика этого же цикла?
8. Эквивалентны ли записи if b = true then и if b then?
9. Почему в цикле for со строками не надо вводить еще одну переменную в которую будет перед циклом заносится длина строки, и эта переменная будет являться конечным значением цикла?
10. Почему в цикле for 0т 1 до длины некоторой строки и удалении некоторых знаков из этой строки, удаляются не все знаки?


Вот. Пока 10 штук. Почти все уже готовы.
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Форум группы: Vingrad Delphi - Voluntary Writers Group | Следующая тема »


 




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


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

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