1) Функция Length(Str: String) - возвращает длину строки (количество символов). Пример:

var
Str: String; L: Integer;
{ ... }
Str:='Hello!';
L:=Length(Str); { L = 6 }

2) Функция SetLength(Str: String; NewLength: Integer) позволяет изменить длину строки. Если строка содержала большее количество символов, чем задано в функции, то "лишние" символы обрезаются. Пример:

var Str: String;
{ ... }
Str:='Hello, world!';
SetLength(Str, 5); { Str = "Hello" }

3) Функция Pos(SubStr, Str: String) - возвращает позицию подстроки в строке. Нумерация символов начинается с единицы (1). В случае отсутствия подстроки в строке возращается 0. Пример:

var Str1, Str2: String; P: Integer;
{ ... }
Str1:='Hi! How do you do?';
Str2:='do';
P:=Pos(Str2, Str1); { P = 9 }

4) Функция Copy(Str: String; Start, Length: Integer) - возвращает часть строки Str, начиная с символа Star ... Читать дальше »

uses
StrUtils, jpeg, IdHTTP;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TIdHTTP;
jpeg: TJPEGImage;
ms: TMemoryStream;
page, captchaUrl: string;
i: integer;
begin
// Создание экземпляров классов

http := TIdHTTP.Create(owner);

jpeg := TJPEGImage.Create;

ms := TMemoryStream.Create;

http.Request.UserAgent := 'Opera/9.80';
http.HandleRedirects := True;
http.AllowCookies := True;

// Загрузка страницы с капчей и
// вытаскивание URL капчи
page := http.Get('http://www.tyumen.mts.ru/sendsms/');
i := PosEx('LBD_CaptchaImage', page);
i := PosEx('src=', page, i) + 5;
captchaUrl := Copy(page, i, PosEx(#39, page, i) - i);
captchaUrl := StringReplace(captchaUrl, '&', '&', [rfReplaceAll]);

// Загрузка капчи
http.Get('http://www.tyumen.mts.ru/sendsms/' + captchaUrl, ms);
ms.Position := 0;
jpeg.LoadFromStream(ms);
Image1.Picture.Ass ... Читать дальше »