[Статья] Примеры на Delphi: Copy Pos

[HAHo_tech]

Этот урок будет полезен начинающим программистам, которые хотят знать как пользоваться функцией Copy и Pos. Для этого я решил привести несколько примеров на Delphi

К примеру вам нужно вытащить из email только логин, для этого:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2, str3: string;
  P: Integer;
begin
      str1 := '[Ссылки могут видеть только зарегистрированные пользователи. ]'; // Наш пример email адреса
      str2 := '@'; // До этого символа мы будем потом вырезать логин
      P := Pos(str2, str1) - 1; // Узнали длину строки от начала до символа '@'. В нашем примере это будет 11
      str3 := Copy(str1, 0, P); // Теперь в переменной str3 хранится наш логин без '@mail.ru'
      Label1.Caption := str3; // Выводим результат
end; 


Пример выше служит только для разъяснения, его можно написать чуть короче:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2: string;
begin
      str1 := '[Ссылки могут видеть только зарегистрированные пользователи. ]';
      str2 := '@';
      Label1.Caption := Copy(str1, 0, Pos(str2, str1) - 1);
end; 


Но что если нам нужно узнать не логин а домен? Для этого нам понадобится функция Length:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2, str3, str4: String;
  P: Integer;
begin
      str1 := '[Ссылки могут видеть только зарегистрированные пользователи. ]';
      str2 := '@';
      P := Pos(str2, str1); // Узнали длину строки от начала до символа '@'
      str3 := IntToStr(Length(str1)); // В переменной str3 хранится длина строки нашего email
      str4 := Copy(str1, P + 1, StrToInt(str3)); // Здесь мы при помощи Copy делаем вот что:
      // str1 - в этой переменной будет происходить действия
      // P + 1 - в P хранилась длина строки от начала до символа '@' и + 1 - значит исключаем этот символ
      // StrToInt(str3) - длина всей строки
      // В итоге функция Copy в переменной str1 вычисляет от переменной P+1 и до конца всей строки, то есть до StrToInt(str3) и запишет в переменную str4 уже готовый наш домен
      Label1.Caption := str4; // Выводим результат
end; 


Этот пример так же был для описания действий, вот наиболее короткий пример:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2: String;
begin
      str1 := '[Ссылки могут видеть только зарегистрированные пользователи. ]';
      str2 := '@';
      Label1.Caption := Copy(str1, Pos(str2, str1) + 1, Length(str1));
end; 


[angryJC]

str3 := IntToStr(Length(str1)); // В переменной str3 хранится длина строки нашего email
str4 := Copy(str1, P + 1, StrToInt(str3)); // Здесь мы при помощи Copy делаем вот что:

ваша родина - Индия?
зачем число (длину) переводить в строку и совать в str3, чтоб потом следующим действием переводить ту же строку обратно в число чтоб подставить в функцию?
почему вместо str3 не использовать целочисленную переменную?

[VeTaL_UA]

Цитата: Сообщение от angryJC ваша родина - Индия?

В Индии так популярен вырвиглаз цвет и наличие *****кода?

Добавлено через 8 минут
Вся статья без лишнего кода:

var
s,res:string;
begin
s:='[Ссылки могут видеть только зарегистрированные пользователи. ]';
res:=Copy(s,Pos('-',s)+1,Pos('@',s)-Pos('-',s)-1);
ShowMessage(res);
end;

[HAHo_tech]

Цитата: Сообщение от angryJC str3 := IntToStr(Length(str1)); // В переменной str3 хранится длина строки нашего email str4 := Copy(str1, P + 1, StrToInt(str3)); // Здесь мы при помощи Copy делаем вот что: ваша родина - Индия? зачем число (длину) переводить в строку и совать в str3, чтоб потом следующим действием переводить ту же строку обратно в число чтоб подставить в функцию? почему вместо str3 не использовать целочисленную переменную?

1) function Length ( const SourceString : string ) : Integer;
функция возращает переменную типа integer, а у переменной str3 тип string
2) function Copy ( Source : string; StartChar, Count : Integer ) : string;
т.к функция copy принимает параметр count (str3) в виде переменной типа integer, а у нас тип string, то его нужно преобразовать.
Вроде так

[VeTaL_UA]

Ololoev..., советую вам посмотреть мой комментарий в этой теме. Там всё расписано более чем подробно.