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 在tedit中显示水印提示

Delphi获取u盘序列号的代码

Delphi windows 编程[5] - 学习窗体生成的过程五

Delphi firemonkey 绘图

Delphi 截取绝对路径的文件名

Delphi checklistbox用法

Delphi 软关闭显示器的代码

Delphi tstringlist删除重复项

Delphi安卓创建pdf文件并打开

Delphi int64 与 currency

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

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