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

Code:

function CheckPass(pass: string): Boolean;
const
  true_pass = 'mypassword123';
begin
  Result := False;
  if pass = true_pass then Result := True;
end;

Пример: http://webfile.ru/4073555

 

2 mr_walker так и пиши.

Code:

If pass <> 'пароль' then
begin
  ReadDocAboutDelphiSyntax(My);
end
else
begin
  VseRavnoGotoReadDocAboutDelphiSyntax(My);
end;

Прежде чем писать чтото, хотябы прочитай элементарные вещи связанные с синтаксисом хотябы паскаля.

Когда ты начал писать на бумаге, ты же начал с букв, а не сразу с письма на деревню дедушке.
В языках программирования точно такие же правила как и в любом языке.

 

2 Nullsleep вообще более красивее этобы выглядело примерно так

Code:

function CheckPass(pass: string): Boolean;
const
  true_pass = 'mypassword123';
begin
  result := pass = true_pass;
end;

т.е. по идее на 1 команду меньше.

 

В исходнике у меня так же, только нужно ли новичку на одну команду меньше?

 

slesh ,Nullsleep спасибо иду читать документацию....
интересный язык оказывается))
спасибо еще раз...

 

далеко ходить не надо. Этажем ниже тема есть
какую литературу начать читать нубу о Паскаль?
https://forum.antichat.ru/thread151659.html

 

Вопрос по winsock

Как принять одни header'ы? Или же одно содержимое пакета (т.е. без header'ов)?

 

wolmer, стандартные функции copy(), pos(), delete().
Принимаешь всю страницу, а дальше отделяешь header от body. Примерно так:
szHeader := copy(szRecvData, 1, pos(#13#10#13#10, szRecvData)-4);
Если нужно отделить body(т.е. содержимое страницы):
szBody := copy(szRecvData, pos(#13#10#13#10, szRecvData)+4, length(szRecvData) );

 

привет какой язык мне паможет перепрограмировать radmin server 3.4 ? ну штовб инсталирвался автоматически работал скрыто штоб небыло иконки в трее.?

 

ASM + Olly DBG + IDA Pro + HEX RAY потому насколько я знаю исходников радмина нет в сети.
А вообще обрати внимание на этот тред - http://forum.antichat.ru/printthread.php?t=101461&pp=40

 

Ассемблер.
P.S а для начала вообще о программировании как таковом полезно было бы узнать, тогда сам все поймешь

 

да разобрался

 

Где скачать Delphi бесплатно на данных сылках не нашол и в гугле тоже есть ток триал 30 дневная где дастать полную бесплатную версию?

 

На торрентах поищи... Можешь здесь посмотреть: http://torrents.ru/forum/viewforum.php?f=1055

 

Помогите пплиз, не пропускайте!

 

Это ошибка происходит когда проект компилируешь?

 

как отключить кнопки "Свернуть""развернуть"??

 

Form1.BorderIcons: какие нужны - включаешь, какие не нужны - выключешь

 

У формы, параметр BorderStyle = bsDialog.

 

Cпс!еще вопрос что сделать чтоб нельзя было форму перемищять мышкой??