Delphi 取相同字符串 2种方法

本文整理自网络，侵删。

 
。

方法1：感谢 QQ1949223 分享代码
procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 s,t:string;
begin
i:=1;
t:='';
edit1.Text:=edit1.Text+' ';
while i<=length(edit1.Text) do
begin
  if t <> copy(edit1.Text,i,1) then
  begin
    memo1.Lines.Add(s);
    t:=copy(edit1.Text,i,1);
    s:=t;
  end
  else
  begin
    s:=s+t;
  end;
  i:=i+1;
end;
end;



方法2：
procedure TForm7.Button1Click(Sender: TObject);
var
  s, s1: string;
  i: Integer;
  a, prea: Char;
begin
  s := Trim(Edit1.Text);

  for i := 0 to Length(s)  do
  begin
    a := s[i];
    if prea <> a then
    begin
      //对比不同
      Memo1.Lines.Add(s1);
      s1 := '';
    end;
    s1 := s1 + a;
    prea := a;
  end;
  Memo1.Lines.Add(s1);

end;
 

相关阅读 >>

Delphi中控件数组批量赋值

Delphi xe7开发的直接以管理员模式启动cmd命令行界面

md5unit.pas

Delphi读写文本文件 assignfile reset append

Delphi中的字符串

Delphi 把exe可执行文件等作为资源包含在Delphi编译文件中

Delphi实现保存和读取图片的方法

Delphi 如何检测你的电脑日期或时间的变化

Delphi中动态加载treeview信息

Delphi xe sha1

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 取相同字符串 2种方法