Счего начать ?

← →
Плохиш © (2006-12-01 01:50) [40]

> Во-вторых, речь шла именно о Delphi, а не Паскале.

О, осталось ещё холивар на тему "Delphi vs. Pascal" устроить :-)) и можно со спокойной совестью вызывать товарищей в белых халатах...

← →
Vga © (2006-12-01 01:53) [41]

> [40] Плохиш © (01.12.06 01:50)

Ну а что тут холиварить, если по словам самого же Вирта Паскаль непригоден для практического использования, только для обучения? А Delphi - не совсем Паскаль, и для сишников ассоциируется с батонокидательством.

← →
Юрий Зотов © (2006-12-01 02:05) [42]

> Vga © (01.12.06 01:53) [41]

> по словам самого же Вирта Паскаль непригоден для практического
> использования, только для обучения?

"Чистый" Паскаль - возможно (хотя тоже спорно). Так ведь обучение сыну и требовалось, а для обучения Паскаль - самое то. Причем именно потому, что формирует отличный стиль.

> А Delphi - не совсем Паскаль

И поэтому более чем пригоден для практического использования. Причем Delphi сохранил в себе классический Паскаль, как подмножество - следовательно, не утратил своей пригодности и для обучения.

> и для сишников ассоциируется с батонокидательством.

Для тех, кто Delphi не знает - да. Об этом и шла речь. Они смотрели круглыми глазами, узнав, что на Delphi можно писать и вовсе без компонентов, и вовсе без VCL. Открытие для них было.

← →
Vga © (2006-12-01 02:08) [43]

> [42] Юрий Зотов © (01.12.06 02:05)

Вот он и опасался дитё к батонокидательству приучить...
Ну а сам я на бейсике учился... В школе на Корветах...

← →
Vga © (2006-12-01 02:09) [44]

> > А Delphi - не совсем Паскаль
>
> И поэтому более чем пригоден для практического использования.
> Причем Delphi сохранил в себе классический Паскаль, как
> подмножество - следовательно, не утратил своей пригодности
> и для обучения.

Да-да, я о том же... Правда, насчет обучения - он стал сложнее, намного, это отмечает тот же Вирт.

← →
Юрий Зотов © (2006-12-01 02:11) [45]

> Vga © (01.12.06 02:08) [43]

Так пусть не инсталлирует компоненты, только и всего. Получится расширенный Паскаль. Что и нужно.

← →
Vga © (2006-12-01 02:12) [46]

> [45] Юрий Зотов © (01.12.06 02:11)

В любом случае, это только пример. Сам вопрос уже давно закрыт, да и с работы той я уволился.

← →
Byuik (2006-12-01 09:46) [47]

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

← →
clickmaker © (2006-12-01 10:22) [48]

> или тут только трёпом занимаются

ага. Половина тут вообще - боты

← →
Сергей М. © (2006-12-01 10:22) [49]

> Byuik (01.12.06 09:46) [47]

Ну держи пример, только не урони)

{ $HDR$} {**********************************************************************} { Unit archived using Team Coherence } { Team Coherence is Copyright 2002 by Quality Software Components } { } { For further information / comments, visit our WEB site at } { http://www.TeamCoherence.com } {**********************************************************************} {} { $Log: 23313: Main.pas { { Rev 1.1 25/10/2004 22:49:18 ANeillans Version: 9.0.17 { Verified } { { Rev 1.0 12/09/2003 23:02:58 ANeillans { Initial Checkin. { Minor GUI Updates { Verified against Indy 9 and D7 } { Demo Name: Ping GUI Created By: Unknown On: Unknown Notes: Demonstrates using the ICMP client to generate PING stats. Version History: 12th Sept 03: Andy Neillans Added option for ping count. Updated the Indy URL Tested: Indy 9: D5: Untested D6: Untested D7: 25th Oct 2004 by Andy Neillans } unit Main; interface uses Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, SysUtils, Classes, IdIcmpClient, IdBaseComponent, IdComponent, IdRawBase, IdRawClient, Spin; type TfrmPing = class(TForm) lstReplies: TListBox; ICMP: TIdIcmpClient; Panel1: TPanel; btnPing: TButton; edtHost: TEdit; spnPing: TSpinEdit; Label1: TLabel; procedure btnPingClick(Sender: TObject); procedure ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus); private public end; var frmPing: TfrmPing; implementation {$R *.DFM} procedure TfrmPing.btnPingClick(Sender: TObject); var i: integer; begin ICMP.OnReply := ICMPReply; ICMP.ReceiveTimeout := 1000; btnPing.Enabled := False; try ICMP.Host := edtHost.Text; for i := 1 to spnPing.Value do begin ICMP.Ping; Application.ProcessMessages; end; finally btnPing.Enabled := True; end; end; procedure TfrmPing.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus); var sTime: string; begin // TODO: check for error on ping reply (ReplyStatus.MsgType?) if (ReplyStatus.MsRoundTripTime = 0) then sTime := "<1" else sTime := "="; lstReplies.Items.Add(Format("%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms", [ReplyStatus.BytesReceived, ReplyStatus.FromIpAddress, ReplyStatus.SequenceId, ReplyStatus.TimeToLive, sTime, ReplyStatus.MsRoundTripTime])); end; end.

DrPass © (30.11.06 00:48) [25]

> Если будущий программист будет изначально учиться на Сях,
> да, писать сложные программы он научится... Но его код,
> честное слово, будет такой дрянью, что проекты после него
> проще будет убить и написать заново, чем пытаться сопровождать
> и развивать. Это факт, справедливый для 99% таких случаев

Лажу не надо гнать. Полезно периодически выходить за рамки своего узкого мирка и осматриваться вокруг.

В одной из вакансий нашел среди требований такое
- Опыт работы с реляционными SQL-базами данных (знание языка C++ запросов)
интересно, что бы это значило?

← →
Byuik (2006-12-01 13:10) [52]

> Сергей М. © (01.12.06 10:22) [49]

Очень прибольшое спасиба!!!

А по вопросам MMB отвечу что конструктор при написании скриптов использует очень схожий (язык,синтаксис) с Delphi вот отсюда и интерес у меня к Delphi 6 и появился.

> Byuik (01.12.06 13:10) [52]

> Очень прибольшое спасиба

Очень прибольшое "носи не стаптывай")

Счего начать ? Найти похожие ветки