Пьяный дельфин от 3 ноября 2000

Hi !

Пусти козла в огород ...
Похоже Дельфин своим присутствием распугал всю добычу и теперь сидит на голодном пайке. Это надо - за три недели на выпуск еле набираем.

 assign(f,'test.txt');
 if assigned(f) then Write('Такой файл существует.');

тоды мне слyчаино попали исходники дpyгого тpоянчика и не много поседев и подyмав я pазабpался как это млин pаботает... А pоботает очень даже не плохо

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

16.10.2000 Ilya Boyarshinov

Procedure Tform1.button1click(Sender:TObject);
Var a:array[0..2,0..2] of integer;
    i,j:integer;
Begin
{Ввод массива}
For i:=0 to 3 do
  For j:=0 to 2 do
    a[i,j]:=strtoint(res.cells[i,j]);  {res => TStringGrid}
{Вывод массива}
For i:=0 to 2 do
  For j:=0 to 2 do
    label3.caption:=inttostr(a[i,j]);
end;

26.10.2000 Шалонкин Александр

Может кто подскажет, как определить имя компьютера в сети в который вошел определенный пользователь под своим именем?
Зная имя пользователя.

29.10.2000 Black Magic

30.10.2000 Alexandr Tarasov

    assign(f,'test.txt');
    if assigned(f) then Write('Такой файл существует.');

1.11.2000 Lukyanov S.V.