Вторник, 11.12.2018, 18:42
Приветствую Вас Гость
Меню сайта


Копилка для дальнейшего развития ресурса.
 
Форма входа
Интересное
Статистика

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

Программирование на Delphi.

Программирование

Главная » FAQ » Строки


// Способ первый
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := ' Тестовая строка ';
  while Pos( ' ', s ) > 0 do
  Delete( s, Pos( ' ', s ), 1 );
  Edit1.Text := s;
end;

// Способ второй
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := ' Тестовая строка ';
  s := StringReplace( s, ' ', '', [rfReplaceAll] );
  Edit1.Text := s;
end;




procedure TForm1.Button3Click(Sender: TObject);
var
  s: string;
begin
  s := ' Тестовая строка ';
  if IsDelimiter( 'е', s, 5 ) then
  ShowMessage( 'Такая буква существует' )
  else
  ShowMessage( 'Такая буква не существует' );
end;




// Способ первый
var
  Form1: TForm1;
  Str: string = ' Добро пожаловать на сайт http://delphihelp.ucoz.ru ';

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption := Str;
  Str:= Copy( Str, 2, Length( Str )-1 ) + Str[1];
end;

// Способ второй
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  s := Caption;
  for i := 1 to Length( s )-1 do
  s[i] := Caption[i+1];
  s[Length( s )] := Caption[1];
  Caption := s;
end;



Подключите модуль StrUtils.

Далее в обработчике событий напишите:

if AnsiLeftStr(Edit1.text,5)=AnsiLeftStr(Edit2.text,5) then

ShowMessage('Первые 5 символов обоих строк совпадаю!')