MIDlet Pascal
Поиск по сайту
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Понедельник, 28.05.2018, 03.59.38
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Урок №6 "Строки"
Здравствуйте.В этом уроке Вы научитесь работать со строками.
В некоторых приложениях работать со строками просто необходимо. Для работы со строками нам будут нужны следующие функции:
Copy(str1:string; begin, end:integer): string; - копирует текст из строки str, начиная из символа под номером begin, заканчивая символом под номером end.   Например:

var s:string;
begin
 s:='MIDletPascal'; //Создаём строку с текстом
 s:=Copy(s,0,6) //копируем текст
 if s='MIDlet' then //Если s = 'MIDlet' тогда
   DrawImage(LoadImage('/icon.png'), 0, 0) else //вывести изображение, иначе
     DrawText('Этого никогда не случится', 0, 0); //Написать текст на экране
 Repaint;
 Delay(20000);
end.

  IntegerToString, StringToInteger - переводить из  строки в целочисленый тип или наоборот
Length(str: string): integer; - функция возвращает количество символов данной строки
Например:

var s:string;
    i:integer;
begin
 s:='MIDletPascal'; //создаём строку
 i:=length(s); //Узнаём количество символов
 DrawText(integerToString(i), 0, 0);
 Repaint;
 Delay(3000);
end.
 
Pos(s1,s2:string):integer; - функция возвращает первый номер подстроки s2 в строке s1
Например:

Var i:integer;
    s:string;
Begin
  s:='MIDletPascal'; //создаём строку
  i:=Pos(s,'Pas');
  DrawText(integertostring(i), 0, 0);
  Repaint;
  Delay(2000);
End.

  В отличии от обычного паскаля, здесь нет функции которая удаляет символы строки, по этому я предлагаю воспользоваться готовой функцией:

function Delete(s1:string;index,count:integer):string;
var s2:string;
begin
  if index=0 then s2:=Copy(s1,index+count,length(s1)) else
    if (index+count)=length(s1) then s2:=copy(s1, 0, index) else 
      if (index<>0) and ((index+count)<>length(s1)) then
        s2:=copy(s1,0,index)+copy(s1,index+count, length(s1)) else s2:='';
  Delete:=s2;
end;

  функция удаляет символы со строки s1, начиная с символа под номером index, количество удаляемых символов count

  Поздравляю‼Вы прошли урок №6
← Урок №5Урок №7 →
Если вы нашли ошибки/очепятки в тексте то сообщите о них на форуме
А также можете заказать программу/игру на этой странице

www.parkflyer.ru - радиоуправляемые модели, радиоуправляемые модели самолетов, магазин радиоуправляемых моделей
Роспись стен, скульптуры на заказ
Wladymyr © 2012-2018
Создать бесплатный сайт с uCoz