[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

SkyLine32, не прокатит. Он закроет быстрее чем проверит, что нажато ))

 

CanClose := False;

 

Упп, не много ошибся. Все таки код SkyLine32 работает. Лично проверил.

Code:

 if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;

 

Code:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    canclose := false;
end;

 

Да canclose не прокатит. Тогда это не только Alt+F4 блочить будет, а любой закрытие.

 

Проверку по флагу можно сделать, если было нажато ALT+F4 тогда флаг False иначе True; Но автору вопроса кажется и надо, что бы процесс никак нельзя было прибить.

Это в тип формы:

PHP:

  public
    Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
    { Public declarations }
  end;


Ниже implementation:

PHP:

Procedure TForm1.ControlWindow(Var Msg:TMessage);
Begin
IF (Msg.WParam=SC_MINIMIZE) or (Msg.WParam=SC_CLOSE) then
Begin
  //ничего не делаем
End
else
inherited;
End;

P.s. Но все же прибить через панель задач можно
Что бы и там нельзя было: тогда CanClose:=false; как писали выше.

 

Есть Вариант типа "свернуть", Поместить в трей, а окно спрятать тогда:
СсылкО

PHP:

Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
...
Procedure TForm1.ControlWindow(Var Msg:TMessage);
Begin
IF Msg.WParam=SC_MINIMIZE then
Begin
  MessageBox(0,'Minimized','Мы типа решили свернуть окно',32);
  ShowWindow(Handle,SW_HIDE); // Скрываем форму
  // добавляем иконку в трей
  // Запускаем таймер
//  ShowWindow(Handle,SW_SHOW); // Показываем форму
End
else
inherited;
End;

 

А на каком языке написана гала?

 

А на делпхи че вообще не вариант написать галу?

 

А читать посты когда научимся?
http://forum.antichat.ru/showpost.php?p=2048251&postcount=6026

Если знаешь оба языка, то вариант написать есть.

P.s. Если собираешься писать копай в направлении Клиент для IRC .
http://forum.antichat.ru/showpost.php?p=894712&postcount=3

 

с чего лучше начать , кодерству хочу научится.

 

Если вообще не представляешь что такое програмирование то надо начать с самых простых вещей

Переменые
Константы
Оператор условия If else
Оператор выбора case
Циклы For/While/
Массивы.
Функции
.....

Не зависимо какой язык учить, эти основы есть в любом.

Хорошо учится на практики, что прочитал сразу пробывать накодить. (для меня так).

 

Malor1k, раз задаешь такие вопросы, значит совсем новичек... Бери паскаль и учу, там ничего сложного нет.

 

Почему не работает эта программа??

PHP:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f: file of real;
  n,sum,pr:real;
begin
  pr:=1;
  sum:=0;
  assignfile(f,'input.txt');
  reset(f);
  while not Eof(f) do
  begin
    Read(f, n);
    sum:=sum+n;
    pr:=pr*n;
  end;
  closefile(f);
  sum:=abs(sum);
  pr:=pr*pr;
  writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr));
  readln;
end.

В конце всегда 0 0 выдает... все перепробовал

а если переделать вот так:

PHP:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f: textfile;
  n,sum,pr:real;
begin
  pr:=1;
  sum:=0;
  assignfile(f,'input.txt');
  reset(f);
  while not Eof(f) do
  begin
    Readln(f, n);
    sum:=sum+n;
    pr:=pr*n;
  end;
  closefile(f);
  sum:=abs(sum);
  pr:=pr*pr;
  writeln('Modul summi=',round(sum),' kvadrat proizvedenija=',round(pr));
  readln;
end.

то все работает! но нужно через типизированные файлы!

 

1. Зачем цикл, если читается только 1 переменная. В любом случаи он пропускает чтение.
2. в файле скорее всего у тебя 123.32, а не

Code:

ЧЈp=
З^@

Вот текстовый файл содержит: 123.11
Попробуй записать в файл при file of real, потом прочитать, все работает на ура.

 

ну в общем то я понял, а вот вопросы тогда:

1: как сделать чтобы он читал несколько переменных... readln тут не канает
2:

Code:

ЧЈp=З^@

что это вообще такое и есть ли возможность вводить нормальные значения?

как сделать что бы было несколько переменных?

 

1. Как записываешь так и читаешь:
Записал в файл данные

PHP:

n:=123.123;
Write(f,n);
n:=456.456;
Write(f,n);


Считал с файла данные, конечно лучше N сделать массивом.

PHP:

Read(f, n);
WriteLn(FloatToStr(n));
Read(f, n);
WriteLn(FloatToStr(n));


2.

Code:

ЧЈp=З^@

- это содержимое файла в real. тоесть (123.11). Нормальный вид, используй textfile. а там уже конвертируй в real

 

кaк умeньшить количeство используeмой опeрaтивки?

 

1. Есть мыло (mail.ru).
Необходимо зарегить Мой Мир и установить аватарку.
2. Установить приложение в Моем Мире по ссылке.

Кто этим занималься - Помогите сформировать запросы в Делфи.

 

shaker101. Возьми снифер и смотри что шлеться и что приходит от сервера. Вроде ничего сложного.