请问个取字符串的问题

Question

比如字符串: 'abcdefga23aisdfaidfsid'怎样取出a这个字符?有好几个,都分别取出请问怎么做?谢谢

Answer 1

pos函数即可while pos('a', 'abcdefga23aisdfaidfsid') <> 0 do

Answer 2

var
  s: string;
  I: Integer;
begin
  s := 'abcdefga23aisdfaidfsid';
  repeat
    I := Pos('a', S);
    if I <> 0 then
    begin
      ShowMessage('Find ' + #39 + 'a' + #39 + ' in ' 
        + IntToStr(i));
      Delete(s, 1, I);
    end;
  until I = 0;
end;

Answer 3

uses strutils..
procedure TForm1.Button1Click(Sender: TObject);
var p:integer;
begin
    p:=1;
    while PosEx('a','abcdefga23aisdfaidfsid',p)>0 do
    begin
        p:=PosEx('a','abcdefga23aisdfaidfsid',p)+1;
        ListBox1.Items.Add('''a'' appeared at col:'+inttostr(p-1));
    end;
end;