ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
20.12.2009, 19:01
|
|
Участник форума
Регистрация: 13.11.2008
Сообщений: 131
Провел на форуме:
776255
Репутация:
52
|
|
Сообщение от SHAXID
При компиляции появляется ошибка вида:
[Fatal Error] Could not create output file 'C:\(путь)\Project1.exe
В чем может быть проблема?..
Дык сохрани проект и перезапусти Делфи...все заработает
|
|
|
20.12.2009, 19:02
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от ErrorNeo
вопрос - как проще сделать в потоке application.processmesseges длительностью (скажем) 10 секунд?
слип не предлагать Таймер...
Как на WinSock сделать сервер-клиент?
|
|
|
|
20.12.2009, 19:11
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от НTL
Таймер...
Как на WinSock сделать сервер-клиент?
Есть интересная программка, называется DRKB Explorer. В ней база всяких статей по Delphi (не помню откада она их берет), вот. Там есть ответ подробный на твой вопрос.
P.S Полезная вообще это штука.
|
|
|
|
20.12.2009, 19:21
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Как на WinSock сделать сервер-клиент?
Книгу Михаила Фленова под названием "delphi глазами хакера" в руки (там очень хорошо описывается работа с winsock)
|
|
|
|
20.12.2009, 20:32
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
Провел на форуме:
152084
Репутация:
8
|
|
Вопрос волнующий мой мозг до глубины ... мне надо составить программу которая бы заменяла из Аbcda сделала AbcdA,
те 'a' стало 'A' ... или наоборот abcda .
Upcase не помогает... есть у кого идеи?
Загуглил нашёл такую функцию, но адин х не пашет.... :
function downcase(symbol:char):char;
begin
case symbol of
'A'..'Z','А'..'П':downcase:=chr(ord(symbol)+32);
'Р'..'Я':downcase:=chr(ord(symbol)+80);
else
downcase:=symbol;
end;
|
|
|
|
21.12.2009, 02:49
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
n1ghtstalker, есть ф-ии LowerCase и UpperCase (только для латиницы)
Код:
var s:string;
...
s:='Abcda';
s[length(s)]:=UpperCase(s)[length(s)];
|
|
|
|
21.12.2009, 03:00
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
Провел на форуме:
140714
Репутация:
29
|
|
Сообщение от n1ghtstalker
Вопрос волнующий мой мозг до глубины ... мне надо составить программу которая бы заменяла из Аbcda сделала AbcdA,
те 'a' стало 'A' ... или наоборот abcda .
Upcase не помогает... есть у кого идеи?
Загуглил нашёл такую функцию, но адин х не пашет.... :
function downcase(symbol:char):char;
begin
case symbol of
'A'..'Z','А'..'П':downcase:=chr(ord(symbol)+32);
'Р'..'Я':downcase:=chr(ord(symbol)+80);
else
downcase:=symbol;
end;
Код:
function LCase(Symbol: Char): Char;
begin
case Symbol of
'А'..'Я', 'A'..'Z':
Result := Chr(Ord(Symbol) + 32);
'Ё':
Result := 'ё';
else
Result := Symbol;
end;
end;
function UCase(Symbol: Char): Char;
begin
case Symbol of
'а'..'я', 'a'..'z':
Result := Chr(Ord(Symbol) - 32);
'ё':
Result := 'Ё';
else
Result := Symbol;
end;
end;
Функции для перевода символа из нижнего регистра в верхний и наоборот.
|
|
|
|
21.12.2009, 20:58
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
Провел на форуме:
520157
Репутация:
35
|
|
Сообщение от Markus_13
n1ghtstalker, есть ф-ии LowerCase и UpperCase (только для латиницы)
Для кириллицы, если не ошибаюсь AnsiUpperCase и соответственно AnsiLowerCase функции используются
Последний раз редактировалось alexey-m; 21.12.2009 в 21:07..
Причина: опечатки) и такое бывает =)
|
|
|
|
21.12.2009, 21:02
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 130
Провел на форуме:
436500
Репутация:
11
|
|
Сообщение от alexey-m
AnsiLoverCase
Lover?? любовник??? 
|
|
|
|
22.12.2009, 02:15
|
|
Познающий
Регистрация: 22.11.2009
Сообщений: 53
Провел на форуме:
33126
Репутация:
0
|
|
Всем привет.У меня такой вопрос.Какое условие надо задать чтобы цикл repeat/until выполнялся более одного раза,то есть цикл может закончится как минимум на втором круге.Язык паскаль.Заранее спасибо |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
