Форум Mapper720.Ru

Дата: Понедельник, 30 Ноя 2009, 19:45 | Сообщение # 41

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

скачай лучше Delphi 7

Дата: Понедельник, 30 Ноя 2009, 22:57 | Сообщение # 42

Зобаниватель незобавнивоемого

Группа: Админ

Сообщений: 5077

Награды: 19

Репутация: 68

Статус: Offline

DEMOH, чем тебе Дельфи 10 лайт не нравится? Рульная вещь)

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)

Дата: Вторник, 01 Дек 2009, 09:37 | Сообщение # 43

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

Насчет Borland Developer Studio 2006, я о таком не слышал. Юзаю Delphi 2009 и 7

Сообщение отредактировал karpovmak - Вторник, 01 Дек 2009, 09:38

Дата: Вторник, 01 Дек 2009, 16:59 | Сообщение # 44

Генерал-лейтенант

Группа: Проверенные

Сообщений: 751

Награды: 0

Репутация: 19

Замечания: 0%

Статус: Offline

Quote (Chuwis720)

чем тебе Дельфи 10 лайт не нравится?

мне не нравится слово "Лайт" biggrin

мне не нравится что в консольных приложениях не пашут русские буквы

Start Source SDK

Дата: Среда, 02 Дек 2009, 10:40 | Сообщение # 45

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

Quote (DEMOH)

мне не нравится что в консольных приложениях не пашут русские буквы

Это в всех дельфи.
Для Delphi 7:

Code

function Rus(mes: string):string;
var
     i: integer;
begin
     for i:=1 to length(mes) do
          case mes[i] of
             'А'..'п' : mes[i] := Chr(Ord(mes[i]) - 64);
             'р'..'я' : mes[i] := Chr(Ord(mes[i]) - 16);
          end;
     rus := mes;
end;

Для Delphi 200x

Code

function Rus(mes: string):string;
var
     i,j: integer;
begin
    for i := 1 to Length(mes) do begin
      case mes[i] of
       'а' : j := 160;
       'б' : j := 1038;
       'в' : j := 1118;
       'г' : j := 1032;
       'д' : j := 164;
       'е' : j := 1168;
       'ё' : j := 1089;
       'ж' : j := 166;
       'з' : j := 167;
       'и' : j := 1025;
       'й' : j := 169;
       'к' : j := 1028;
       'л' : j := 171;
       'м' : j := 172;
       'н' : j := 173;
       'о' : j := 174;
       'п' : j := 1031;
       'р' : j := 1072;
       'с' : j := 1073;
       'т' : j := 1074;
       'у' : j := 1075;
       'ф' : j := 1076;
       'х' : j := 1077;
       'ц' : j := 1078;
       'ч' : j := 1079;
       'ш' : j := 1080;
       'щ' : j := 1081;
       'ъ' : j := 1082;
       'ы' : j := 1083;
       'ь' : j := 1084;
       'э' : j := 1085;
       'ю' : j := 1086;
       'я' : j := 1087;
       'А' : j := 1026;
       'Б' : j := 1027;
       'В' : j := 8218;
       'Г' : j := 1107;
       'Д' : j := 8222;
       'Е' : j := 8230;
       'Ё' : j := 1088;
       'Ж' : j := 8224;
       'З' : j := 8225;
       'И' : j := 8364;
       'Й' : j := 8240;
       'К' : j := 1033;
       'Л' : j := 8249;
       'М' : j := 1034;
       'Н' : j := 1036;
       'О' : j := 1035;
       'П' : j := 1039;
       'Р' : j := 1106;
       'С' : j := 8216;
       'Т' : j := 8217;
       'У' : j := 8220;
       'Ф' : j := 8221;
       'Х' : j := 8226;
       'Ц' : j := 8211;
       'Ч' : j := 8212;
       'Ш' : j := 152;
       'Щ' : j := 8482;
       'Ъ' : j := 1113;
       'Ы' : j := 8250;
       'Ь' : j := 1114;
       'Э' : j := 1116;
       'Ю' : j := 1115;
       'Я' : j := 1119
      else j := ord(mes[i]);
      end;
      Result := Result + chr(j);
    end;

end;

Увы, умнее решения не нашел

Code

writeln(rus('А тут русские буквы должны пахать'));

Анекдот в тему:
- Знаете, почему сеть не пашет?
- Потомушто сетью рыбу ловят, а пашет - плуг
Нажмите Ctrl+A

Сообщение отредактировал karpovmak - Среда, 02 Дек 2009, 10:41

Дата: Среда, 02 Дек 2009, 16:56 | Сообщение # 46

Генерал-лейтенант

Группа: Проверенные

Сообщений: 751

Награды: 0

Репутация: 19

Замечания: 0%

Статус: Offline

Quote (karpovmak)

Увы, умнее решения не нашел

и так сайдет happy

Start Source SDK

Дата: Среда, 02 Дек 2009, 16:57 | Сообщение # 47

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

А контрол-А в браузере нажимал? smile

Глядя на моё сообщение,где я функции привёл?

Сообщение отредактировал karpovmak - Среда, 02 Дек 2009, 16:58

Дата: Среда, 02 Дек 2009, 19:00 | Сообщение # 48

Генерал-лейтенант

Группа: Проверенные

Сообщений: 751

Награды: 0

Репутация: 19

Замечания: 0%

Статус: Offline

а вот у меня вопрос, можно ли сделать перезапуск проги после readln;
типо:

Code

uses
   SysUtils,
begin
   Writeln('Hello');
   readln;
   ПЕРЕЗАПУСТИТЬ ПРОГУ;
end

Добавлено (02 Дек 2009, 19:00)
---------------------------------------------
мне друг сказал что это через цикл надо делать...
я сам пишу на vb, а ща решил пасколь изучть...

Start Source SDK

Дата: Среда, 02 Дек 2009, 20:15 | Сообщение # 49

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

Code

....
uses ShellAPI, Windows, Forms;
....
procedure Restart;
begin
ShellExecute(0, 'open', PChar(Application.ExeName), '', '', SW_SHOWNORMAL);
Halt;
end;
....
begin
Restart;
end.

Сообщение отредактировал karpovmak - Среда, 02 Дек 2009, 22:03

Дата: Среда, 02 Дек 2009, 21:23 | Сообщение # 50

Генерал-лейтенант

Группа: Проверенные

Сообщений: 751

Награды: 0

Репутация: 19

Замечания: 0%

Статус: Offline

я сделал по другому

Code

label
   M;
begin
   M:writeln('Hello');
   readln;
   goto M;
end

Start Source SDK

Дата: Среда, 02 Дек 2009, 22:02 | Сообщение # 51

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

Ты говорил о перезапуске, т.е. о завершении работы этой копии и создания новой.
Ты сделал просто JMP

Дата: Среда, 02 Дек 2009, 23:00 | Сообщение # 52

Генерал-лейтенант

Группа: Проверенные

Сообщений: 751

Награды: 0

Репутация: 19

Замечания: 0%

Статус: Offline

я не правильно задал вопрос, мне надо было что бы прогой можно было бесконечно пользоваться

Start Source SDK

Дата: Четверг, 03 Дек 2009, 09:02 | Сообщение # 53

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

а ну тогда ты сделас вполене правильно, НО
1) goto считаеться плохим тоном, используй

Code

while TRUE do begin
// Код проги
end;

а когда надо выйти, ставь Break;
2) Надо сбросить все переменные

Сообщение отредактировал karpovmak - Четверг, 03 Дек 2009, 09:04

Дата: Четверг, 10 Дек 2009, 21:28 | Сообщение # 54

Зобаниватель незобавнивоемого

Группа: Админ

Сообщений: 5077

Награды: 19

Репутация: 68

Статус: Offline

http://mapper720.ru/load/32-1-0-102
Еще одно мое творение)

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)

Дата: Пятница, 11 Дек 2009, 12:13 | Сообщение # 55

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

Quote

Предложения оставляйте в каментах.

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

Добавлено (11 Дек 2009, 12:13)
---------------------------------------------
Вот моя версия : text editor

Сообщение отредактировал karpovmak - Пятница, 11 Дек 2009, 09:46

Дата: Пятница, 11 Дек 2009, 15:02 | Сообщение # 56

Зобаниватель незобавнивоемого

Группа: Админ

Сообщений: 5077

Награды: 19

Репутация: 68

Статус: Offline

Ну, это ж моя первая прога, не могу же я Ворд написать)

ЗЫ. Как свернуть приложение в трей?

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)

Дата: Пятница, 11 Дек 2009, 16:00 | Сообщение # 57

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

1) Добавить компонент иконки трея.
2) Когда надо свернуть, вызывай Form1.Hide;

Quote

Ну, это ж моя первая прога, не могу же я Ворд написать)

Не первая, а вторая.
А мой редактор как?

Дата: Суббота, 12 Дек 2009, 22:08 | Сообщение # 58

Зобаниватель незобавнивоемого

Группа: Админ

Сообщений: 5077

Награды: 19

Репутация: 68

Статус: Offline

karpovmak, редактор прикольный))
Кстати, как можно сделать передачу каких-то данных (через интернет, например)? Киньте ссылку на туторы, у кого есть wink

У меня дофига проблем, но я хочу поделиться своими проблемами! © Freeman's mind
Мой открытый ключ PGP (обновлён 23.12.2011)

Дата: Воскресенье, 13 Дек 2009, 16:16 | Сообщение # 59

Генерал-лейтенант

Группа: Проверенные

Сообщений: 502

Награды: 2

Репутация: 11

Замечания: 0%

Статус: Offline

через TServerSocket и TClientSocket

Добавлено (13 Дек 2009, 16:16)
---------------------------------------------
Пример