Форум: "Прочее";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];
Вниз
Процедура для изучения Delphi для новичков :) Найти похожие ветки
← →
Raven (2008-02-20 15:31) [0]
procedure PoznanieDelphi;
var
Popitka: integer;
Delphi: TDelphiDistributiv;
Golova: TMozg;
Uspeh: Boolean;
label
Zanovo;
begin
Golova := TMozg.Create(Self);
Delphi := TDelphiDistributiv.create(Computer);
Delphi.Start;
Uspeh := false;
for Popitka := 0 to 30 do // Месяц
begin
Zanovo:
Golova.Read("DelphiBook");
if Golova.CreatedelphiProject("DelphiBookPrimer") then
if Golova.CreatedelphiProject(Golova.Idea) then
begin
Uspeh := true;
Break;
end
else
begin
Admin.SendMessage(Golova.ErrorCode);
goto Zanovo;
end;
end;
if not Uspeh then
begin
Delphi.Close;
Delphi.uninstall;
Golova.free; :)
end
else
begin
Delphi.Close;
ShowMessage("УРА !!!");
end;
end;
← →
Проскользнул мимо... (2008-02-20 15:35) [1]А исходник где можно скачать? :-)
← →
Rouse_ © (2008-02-20 15:36) [2]goto Zanovo говоришь? :)
Какой шикарный логика алгоритма :)))
← →
Raven (2008-02-20 15:37) [3]TMozg поставляется в комплекте. TComputer нужно приобретать отдельно :)
← →
Raven (2008-02-20 15:37) [4]> Rouse_ © (20.02.08 15:36) [2]
Так и учил :)
← →
Rouse_ © (2008-02-20 15:38) [5]Плохо учил - нужно еще учить :)
← →
antonn © (2008-02-20 15:38) [6]это каждый новичек пытается написать такую бадягу как в [0]?
:/
← →
Raven (2008-02-20 15:50) [7]> antonn © (20.02.08 15:38) [6]
Каждый новичек задает глупые вопросы не по теме :) это да
← →
pasha_golub © (2008-02-20 15:51) [8]Мдя, автор. Фигня, надо рефакторить.
procedure PoznanieDelphi;
var
Popitka: integer;
Delphi: TDelphiDistributiv;
Golova: TMozg;
Uspeh: Boolean;
label
Zanovo;
begin
Golova := TMozg.Create(Self);
try
Delphi := TDelphiDistributiv.create(Computer);
try
Delphi.Start;
Uspeh := false;
for Popitka := 0 to 30 do // Месяц
begin
Golova.Read("DelphiBook");
Repeat
Uspen := Golova.CreatedelphiProject("DelphiBookPrimer") and Golova.CreatedelphiProject(Golova.Idea);
if not Uspeh then Admin.SendMessage(Golova.ErrorCode);
Until Uspeh;
end;
Delphi.Close;
finally
Delphi.Free;
end
finally
Golova.Free;
end;
end;
← →
Raven (2008-02-20 15:52) [9]> pasha_golub © (20.02.08 15:51) [8]
ИХМО Голову не нужно уничтожать в конце. Сама отвалиться через (Random 100)
← →
Raven (2008-02-20 15:54) [10]> Rouse_ © (20.02.08 15:38) [5]
Писалось для человека нового в Delphi
Если написать нормально то он бы просто не понял
← →
Rouse_ © (2008-02-20 15:56) [11]
> Raven (20.02.08 15:54) [10]
> Писалось для человека нового в Delphi
> Если написать нормально то он бы просто не понял
Ы? ))))))
Т.е. любой новичек ножет понять ненормально написанный код? :))))))
← →
Raven (2008-02-20 15:57) [12]> Rouse_ © (20.02.08 15:56) [11]
Как показала практика понял
← →
Rouse_ © (2008-02-20 15:58) [13]
> Raven (20.02.08 15:57) [12]
> Как показала практика понял
Теперь по русски :)
← →
VirEx © (2008-02-20 16:26) [14]type
TSinaps = record of
a,b,c: byte;
end;
TEmo = (eSmail, eSad, eCrazy, eS__k, eGood, eDefault, eNeedBear);
Tthink= array of TSinaps;
TMozg = class
private
FSmok:TSmok
currentThink:Tthink;
public
emoution:TEmo;
published
property Smoker:TSmok read FSmok write FSmok;
end;
← →
Ega23 © (2008-02-20 17:12) [15]
> pasha_golub © (20.02.08 15:51) [8]Delphi.Close;
finally
Delphi.Free;
end
Close в деструктор TDelphiDistributiv добавь.
ИМХО, так рациональнее будет...
← →
Alien1769 © (2008-02-20 17:19) [16]Удалено модератором
← →
Проскользнул мимо... (2008-02-20 17:43) [17]
> Golova.Free;
Зачем память стирать?
Лучше Golova.SaveState; Golova.Sleep;
← →
Raven (2008-02-20 22:17) [18]> Golova.Sleep;
ИХМО
if Time >= 23:00 then Golova.Sleep;
← →
KilkennyCat © (2008-02-20 23:01) [19]> Admin.SendMessage(Golova.ErrorCode);
За что так админа-то не любим?
← →
IceBeerg (2008-02-20 23:26) [20]Да чего Вы мучаетесь... алгоритм прост...
Сначала надо определить:If ((Assigned(Golova)=True)And(Golova.Status=NotBad)) Then
и далееbegin
For month:=0 to 29 do
Golova.Work:=[Dumat,Rabotat];
Uspeh:=False;
end;
← →
KilkennyCat © (2008-02-20 23:29) [21]If (Assigned(Any)) Then
begin
Repeat
Arbaiten;
Until sdoh; или nesdoh.... а-а-а-а! я забыл когда прекращается, когда истинно, мили наоборот???!!!
end;
← →
Проскользнул мимо... (2008-02-20 23:35) [22]
> For month:=0 to 29 do
не month, а day...
← →
IceBeerg (2008-02-20 23:36) [23]
> KilkennyCat © (20.02.08 23:29) [21]
Не... 23:29...35 либо спать либо за пивом, а не код писать ;)
Йа запивом...
← →
IceBeerg (2008-02-20 23:40) [24]
> Проскользнул мимо... (20.02.08 23:35) [22]
Ой точно, извините вот облажался...
← →
Lip © (2008-02-20 23:58) [25]Чето, ребята лажой вы занимаетесь.
Никогда не любил шутки такого рода. Извращенство какое-то... не смешное =)
← →
KilkennyCat © (2008-02-21 00:05) [26]> [25] Lip © (20.02.08 23:58)
что, работать не любим? а придется, гыыыы.... :)
← →
IceBeerg (2008-02-21 00:09) [27]
> Lip © (20.02.08 23:58) [25]
Вот отдыхаем так... апосля работы...
← →
md10 (2008-02-21 10:22) [28]У меня везде неизвестный идентифер:-)
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.007 c
