Четверг
25.04.2024
21:20
Поиск
Вход на сайт
Логин:
Пароль:
Мини-чат
Друзья сайта

Проект "Ангор"

[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: angor, Gexon  
Ангорум » Проект "Ангор" - общий раздел » Материалы для самообразования » Нарыл в "delphi.int.ru" (различные статьи)
Нарыл в "delphi.int.ru"
GexonДата: Понедельник, 27.07.2009, 21:10 | Сообщение # 1
Оракул
Группа: Старший енот
Сообщений: 543
Статус: Offline
Создание СОМ сервера

Сообщение отредактировал Gexon - Понедельник, 27.07.2009, 21:13
 
GexonДата: Понедельник, 27.07.2009, 21:12 | Сообщение # 2
Оракул
Группа: Старший енот
Сообщений: 543
Статус: Offline
Что такое #13#10?

Источник: delphi.about.com
Оригинал статьи: http://delphi.about.com/od/adptips2005/qt/crlf.htm
Перевод: Ерёмин Андрей

Несомненно, Вы много раз видели в Delphi-коде нечто "#13#10". Если Вы не знаете, что это такое и каждый раз удивляетесь, то здесь Вы узнаете ответ.

Тип данных string представляет собой совокупность одного или нескольких символов, каждый из которых записывается в виде символа "#" и числа от 0 до 255 (в десятичной или шестнадцатеричной форме) - каждая такая комбинация обозначает соответствующий ASCII-символ.

К примеру, если Вы хотите сделать текст (Caption) элемента TLabel в две строки, то это можно сделать следующим образом:

Code
Label1.Caption := 'Первая строка' + #13#10 + 'Вторая строка';

Комбинация "#13#10" - это комбинация возврата каретки и символа новой строки. "#13" - это ASCII-эквивалент значения CR (carriage return - возврат каретки); "#10" представляет собой LF (line feed - признак новой строки).

Также наиболее интересными управляющими символами являются:
#0 - NULL-символ (нулевой);
#9 - <Tab> (символ табуляции).

Сообщение отредактировал Gexon - Понедельник, 27.07.2009, 21:12
 
GexonДата: Понедельник, 27.07.2009, 21:18 | Сообщение # 3
Оракул
Группа: Старший енот
Сообщений: 543
Статус: Offline
пример того как вывести секунды и минуты smile

Code
procedure TForm1.TimerTimer(Sender: TObject);
begin
    Inc(Time);
    if Time < 60 then
      TimeLabel.Caption:=IntToStr(Time)+' сек.'
    else
      TimeLabel.Caption:=IntToStr(Time div 60)+' мин. '+IntToStr(Time mod 60)+' сек.';
end;

Простейший AI на примере мини-игры

Сообщение отредактировал Gexon - Понедельник, 27.07.2009, 21:18
 
GexonДата: Понедельник, 27.07.2009, 21:22 | Сообщение # 4
Оракул
Группа: Старший енот
Сообщений: 543
Статус: Offline
Знакомство с SQLite
 
GexonДата: Понедельник, 27.07.2009, 22:45 | Сообщение # 5
Оракул
Группа: Старший енот
Сообщений: 543
Статус: Offline
Рефакторинг
 
Ангорум » Проект "Ангор" - общий раздел » Материалы для самообразования » Нарыл в "delphi.int.ru" (различные статьи)
  • Страница 1 из 1
  • 1
Поиск: