Задачка на тему Строковый тип данных

[DJ Kost]

Вот собственно и задачка

Вводится строка. Все встречающиеся в ней буквы A переставить сразу после первой буквы B (или в конец строки, если буквы B в ней нет).

Проблема собственно гдето в коде и я найти ее не могу у меня не переставляет в введенной строке буквы А после первой буквы В (или в конец строки, если буквы B в ней нет). а наобарот буквы А удаляються подскажите где я ошибся и как правильно нада написать, вот код


var s,str:string;
i,count:integer;


begin
s:=edit1.Text;
count:=0;
i:=0;

while i<=length(s) do
begin
if s[i]='A' then
begin
Inc(Count);
Delete(s,i,1);
end
else
inc(i);
end;
Label1.Caption:=s;
for i:=1 to count do
Str:=str+'A';

end;

end.

[Ламер_001]

дописать поиск первой буквы B.

[DJ Kost]

и как это сделать

[alex_fcsm]

Сообщение от DJ Kost

и как это сделать

Используйте функцию pos и почитайте повнимательнее хелп по ней

[DJ Kost]

тоесть в var это дописать Pos(Substr: string; S: string): Integer;

и вот что я в хелпе нашол

var S: string;

begin
S := ' 123.5';
{ Convert spaces to zeros }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end;

но не очень предстовляю как его в мой код запихать

[SERG1980]

'а','б' русские буквы

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
    i,k:integer;
begin
 S:=Edit1.Text;
 k:=0;
 while Pos('а',S)>0 do
  begin
   Delete(S,Pos('а',S),1);
   inc(k);
  end;
 if Pos('в',S)>0 then
   for i:=1 to k do Insert('а',S,Pos('в',S)+1)
  else for i:=1 to k do S:=S+'а';
  Edit1.Text:=S;
end;

[DJ Kost]

в задачке А и Б английские =)

[SERG1980]

Сообщение от DJ Kost

в задачке А и Б английские =)

Ну и кто Вам мешает вместо 'а' и 'в' русских поставить 'A' и 'B' буржуйские

procedure TForm1.Button1Click(Sender: TObject);
var S:string;
    i,k:integer;
begin
 S:=Edit1.Text;
 k:=0;
 while Pos('A',S)>0 do
  begin
   Delete(S,Pos('A',S),1);
   inc(k);
  end;
 if Pos('B',S)>0 then
   for i:=1 to k do Insert('A',S,Pos('B',S)+1)
  else for i:=1 to k do S:=S+'A';
  Edit1.Text:=S;
end;

А ещё лучше оформите этот код в виде функции с паарметрами :строка, символ1,символ2

[DJ Kost]

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