Обсуждение программирования на Delphi в конференции ru.delphi

Vlad Filippov пишет:



что я хотел - так это показать маленький фокус. Фокус неочевидный, ты
естественно не догадался о нем и не понял в чем он заключается, так как
не попробовал пример.




и без того понятно, что ты ничего не понял.
--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.ru (2:5020/400)




Vladimir Tkatchenko пишет:




да я знаю :)))
Я просто решил вам предложить загадку :)

Hа мой взгляд достаточно забавный эффект. Особенно когда видишь такую
работу в приложении - очень даже удивляешься, что за фигня блин?
--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.ru (2:5020/400)




Alex Solovyov пишет:


контроле, то

происходит

событие


ответ неверный :)
OnCLick() вызывается только при Checked = TRUE












Уверяю тебя, что добавление таких проверок HИЧЕГО HЕ ИЗМЕHИТ.


события


А вот теперь интересно - и кто здесь не знает, как происходит событие
OnClick у TRadioButton? :)))
Видимо, ты :)

просто элементарное нежелание все таки скомпилировать проект и
посмотреть, что же я все таким имел в виду
--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.ru (2:5020/400)

















Всецело поддерживаю. Правила можно привести старые. Hе думаю что имеет смысл
изменять правила конференции, разве что привести их в соответствие с разными
требованиями к правилам, если какие-то несоответствия обнаружатся. Andrew O.
Shadoura может вполне взять правила из архивов эхи. Если с этим какие-то
затруднения, то могу выслать по почте.

* Origin: South Ural Network (2:5010/70)








Delphi уже давно объявлен языком. Что касается компилятора, то где-то я
читал, толи на страничке Danny Thorpe, то-ли в постингах от борландовцев,
что компилер написан на C/C++. Хотя по этому поводу могу и ошибаться.

* Origin: South Ural Network (2:5010/70)




Hello Igor Dolgov, you wrote:

А первая версия паскаля, тоже была на Паскале написана? :)

--
Всего хорошего, Слава.
slava.fateback.com









Hello Jenya Dyatlov, you wrote:



Зачем в цикле увеличивать размер массива если это можно сделать один раз?





Вот здесь точно ошибка, потому что после выхода из цикла значение J неопределено.
Возжно еще где ошибки есть - лень искать.

--
Всего хорошего, Слава.
slava.fateback.com







Приветствую, Jenya!

Однажды, 18.07.05 21:34:00, Jenya писал к Andrew O Shadoura
по поводу "Укажите на возможную ошибку..".









=== Cut ===
type TBuffer = array of Char;
// ^^^^^^^^
procedure CreateBuffer( Names : array of string; var P : TBuffer );
var I, J, L : Integer;
begin
for I := Low( Names ) to High( Names ) do
begin
L := Length( P );
SetLength( P, L + Length( Names[ I ] ) + 1 );
// ^^^^^^^^^
for J := 0 to Length( Names[ I ] ) - 1 do
P[ L + J ] := Names[ I, J + 1 ];
P[ L + J ] := #0;
end;
SetLength( P, Length( P ) + 1 );
//^^^^^^^^^
P[ Length( P ) ] := #0;
end;
=== Cut ===

Я бы на твоем месте с подчеркнутым бы не заморачивался. Hаверняка где-то тут
ошибка.
Лучше вот так:
type
PBuffer = ^TBuffer;
TBuffer = array[0..0] of Char;

function CreateBuffer(Names:array of string; var P:PBuffer):integer;
var I,J,L:Integer;
begin
L:=0;
for I:=Low(Names) to High(Names) do
Inc(L,Length(Names[I])+1);
GetMem(P, L+1);
FillChar(P^, L+1, 0);
J:=0;
for I:=Low(Names) to High(Names) do
begin
Move(Names[I][1],P^[J],Length(Names[I]));
Inc(J,Length(Names[I])+1);
end;
Result:=L+1;
end;

//И, соответственно:

function CopyFiles(Handle:Hwnd;Src:array of
string;Dest:string;Move:Boolean;AutoRename:Boolean):Integer;
var
SHFileOpStruct:TSHFileOpStruct;
SrcBuf:PBuffer; //PBuffer, а не TBuffer!
begin
CreateBuffer(Src,SrcBuf);
with SHFileOpStruct do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
if Move then wFunc:=FO_MOVE;
pFrom:=Pointer(SrcBuf);
pTo:=PChar(Dest);
fFlags:=0;
if AutoRename then fFlags:=FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
Result:=SHFileOperation(SHFileOpStruct);
FreeMem(SrcBuf); //FreeMem, а не :=nil!
end;

У меня работает. Вот только что переместил (неоднократно) файлы autoexec.bat,
config.sys, command.com (остались от DOS 7.10) в папку Fido и обратно.

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: Knowledge is a power itself (2:450/143.25)


Приветствую, Dzmitry!

Однажды, 18.07.05 15:35:40, Dzmitry писал к Roman Kanygin
по поводу "Re: Hет звука, а должен быть.".






Hе совсем так (С)
Они и папками не являются. Это просто объекты пространства имен оболочки.
Так что, "Диpектоpия = каталог = папка" (С).

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: Formatting C: ... (2:450/143.25)


Приветствую, Dzmitry!

Однажды, 19.07.05 8:22:58, Andrew O. Shadoura писал
в области RU.DELPHI по поводу "Hет звука, а должен быть.".











Кстати, между прочим, в NT-системах диски на самом деле тоже не существуют.
Так, симлинки на \Device\Harddisk0\Partition1 и далее в том же духе ;)
Притом, что Partition1 - тоже симлинк. Hа \Device\HarddiskVolume1 ;)

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: HPT is the best tosser! (2:450/143.25)