Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.314 RSS
←   Август 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.314 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Информационный Канал Subscribe.Ru

Delphi. Object Pascal. Уроки с сайта http://progs.biz

Рассылка №35

Delphi. Object Pascal. Урок 17. Работаем со строками.
Delphi. Object Pascal. Урок 18. Продолжаем работать со строками.
Полные версии уроков (с картинками) можно найти по адресам:
Урок 17. Работаем со строками.
Урок 18. Продолжаем работать со строками.
С. Жарков. Shareware: профессиональная разработка и продвижение программ

Заказать на Озоне

Подробнее
Рассылки сайта progs.biz через subscribe.ru
Уроки по Java
Уроки по Java с самого начала. Основные конструкции языка, классы в Java, создание приложений с графическим интерфейсом, создание апплетов, работа в JBuilder от Borland'а, сетевые приложения.

Delphi. Pascal. Урок 17. Работаем со строками

Для строк в Delphi предусмотрено несколько типов. На этом занятии мы с вами рассмотрим тип String. Для переменных такого типа мы рассмотрим основные функции - для вычисления длины строки, для выделения подстроки, для вставки и удаления нескольких символов и т. п.

Лучше сразу все эти функции рассмотреть на примере:

...
var
  s1, s2, s3: String;
  n: Integer;
begin
  s1:='Igor';
  s2:='Alexeev';

  //Длина строки.
  n:=Length(s1);
  Writeln(n); //Выведется 4.

  //Конкатенация (сложение) строк.
  s3:=s1 + ' ' + s2; //Первый способ.
  Writeln(s3); //Выведется 'Igor Alexeev'.
  s3:=Concat(s1, ' ', s2); //Второй способ.
  Writeln(s3); //Выведется 'Igor Alexeev'.

  //Поиск подстроки (первый аргумент) в строке (второй агрумент).
  //Функция возвращает номер первого вхождения символа (нумерация с 1).
  //Если вхождение не найдено, то возвращается ноль.
  n:=Pos('go', s1);
  Writeln(n); //Выведется 2.

  //Удаление из сроки S (задается первым агументом)
  //начиная с позиции M (второй аргумент)
  //N символов (третий аргумент).
  //Результат записывается в S;
  Delete(s2, 5, 3);
  Writeln(s2); //Выведется 'Alex'.

  //Вставка первого аргумента в строку,
  //задаваемую вторым аргументом начиная с позиции,
  //определяемой третьим аргументом.
  Insert('222', s2, 2);
  Writeln(s2); //Выведется 'A222lex'.

  //Выделение подстроки (из первого параметра).
  //Второй параметр определяет, с какого символа выделяем
  //(нумерация с нуля), третий - сколько выделяем.
  s2:=Copy(s1, 1, 2);
  Writeln(s2); //Выведется 'Ig'.
  Readln;
end.

Использование функций достаточно ясно из примера.

Небольшое замечание. Строки в Delphi, в отличие, например, от C/C++, заключаются в одинарные кавычки.

Наверх

Delphi. Pascal. Урок 18. Продолжаем работать со строками

Если нам надо вывести на экран число, то, как правило, его надо преобразовать к строковому виду. Для этого существует целый ряд функций, название которых заканчивается на ...ToStr. Обратные функции служат для превращения строк в числа. Их названия начинаются на StrTo... . Вот пример применения некоторых из них:

...
var
  s1, s2: String;
  n1, n2: Integer;
begin
  s1:='23';
  s2:='12';
  n1:=StrToInt(s1);
  n2:=StrToInt(s2);
  Writeln(n1+n2); //Выведется 35.
  Writeln(s1+s2); //Выведется 2312.
  s1:=IntToStr(1234);
  Writeln(s1); //Выведется 1234.
  Readln;
end.

Одно из типичных применений функций StrTo... - это преобразование данных, вводимых пользователем в поля некоторой формы. Скажем, если в 2 поля вводятся 2 числа, то для действия с ними надо будет сначала преобразовать их из строк к числам.

Наверх
Copyright Алексеев Игорь, 2002-2003
Copyright Шмидт Отто, 2002-2003
Copyright сайт progs.biz, 2002-2003
Распространение материалов без разрешения владельцев авторских прав запрещено.
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное