Разбить на части строку

@DenProx · Регистрация: 09.10.2009

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Помогите с простенькой задачкой пожалуйста! Нужно взять строку из Edit'a (например: 408087826341), и разбить на части через 2 символа. Либо выполнять например ShowMessage через каждые 2. Т.е. должно появиться 6 сообщений: 40, 80, 87, 82, 63, 41

Заранее спасибо!

Добавлено через 17 минут
Пока писал, уже сам придумал как сделать :-)

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s,t: String;
    i,j: integer;
begin
s := Edit1.Text;
j:=0;
for i:=1 to Length(s) do
begin
      t:= t+s[i];
      inc(j);
  if j = 2 then
    begin
      ShowMessage(t);
      t:='';
      j:=0;
    end;
end;
 
end;

если код корявый, буду признателен за более грамотные примеры )

@Joy · 27.10.2014, 11:54

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i:=1;
  while i<=length(Edit1.Text) do begin
    ShowMessage(copy(Edit1.Text,i,2));
    inc(i,2);
  end;
end;
 
end.

	27.10.2014, 11:54