Текущий архив: 2006.12.24;
Скачать: CL | DM;
Вниз
Счего начать ? Найти похожие ветки
← →
Плохиш © (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.
← →
Игорь Шевченко © (2006-12-01 11:34) [50]DrPass © (30.11.06 00:48) [25]
> Если будущий программист будет изначально учиться на Сях,
> да, писать сложные программы он научится... Но его код,
> честное слово, будет такой дрянью, что проекты после него
> проще будет убить и написать заново, чем пытаться сопровождать
> и развивать. Это факт, справедливый для 99% таких случаев
Лажу не надо гнать. Полезно периодически выходить за рамки своего узкого мирка и осматриваться вокруг.
← →
clickmaker © (2006-12-01 11:54) [51]В одной из вакансий нашел среди требований такое
- Опыт работы с реляционными SQL-базами данных (знание языка C++ запросов)
интересно, что бы это значило?
← →
Byuik (2006-12-01 13:10) [52]
> Сергей М. © (01.12.06 10:22) [49]
Очень прибольшое спасиба!!!
А по вопросам MMB отвечу что конструктор при написании скриптов использует очень схожий (язык,синтаксис) с Delphi вот отсюда и интерес у меня к Delphi 6 и появился.
← →
Сергей М. © (2006-12-01 14:07) [53]
> Byuik (01.12.06 13:10) [52]
> Очень прибольшое спасиба
Очень прибольшое "носи не стаптывай")
Страницы: 1 2 вся ветка
Текущий архив: 2006.12.24;
Скачать: CL | DM;
Память: 0.57 MB
Время: 0.052 c
