Поиск и удаление символа в строке

[Karl_Karlovi4]

Подскажите пожалуйста как в компоненте edit найти и удалить опеределённый символ ? Привер: в поле edit введено "1122:кк" , как удалить все знаки до ":" ? заранее спасибо.

[eoln]

procedure TForm1.Button1Click(Sender: TObject);
var
  d: integer;
  s: string;
begin
  d := pos(':', edit1.text);//ищем позицию
  s := edit1.text;//читаем едит
  delete(s, 1, d);//удаляем из строки
  edit1.text := s;//записываем едит
end;

Совсем поиском не пользуемся...

[Alter]

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.text := copy(Edit1.Text, pos(':', edit1.text)+1,
                    length(Edit1.Text)-pos(':', edit1.text)
                    );//записываем едит
end;

[SERG1980]

Сообщение от Karl_Karlovi4

как удалить все знаки до ":" ? заранее спасибо.

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s:=edit1.Text;
 Delete(s,1,pos(':',s)-1);
 edit1.Text:=s;
end;

[tarasdj]

procedure TForm1.Button1Click(Sender: TObject);
var k:string;
i,j:integer;
begin
k:=Edit1.Text;
i:=Length(k);
for i:=1 to i do begin
j:=pos(' ',k);
Delete(k,j,1);
edit2.Text:=k;
end;
end;

end.

Рабочий код. Те все не работают.

[Serge_Bliznykov]

Рабочий код. Те все не работают.

глупости.
если задача стоит так:

как удалить все знаки до ":"

то ВСЕ варианты предложеные выше РАБОЧИЕ!

единственное, я бы добавил проверку на наличие двоеточия в строке:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
     p1 : integer;
begin
 p1 := pos(':',edit1.Text);
 if p1>1 then begin
   s:=edit1.Text;
   Delete(s,1,p1-1);
   edit1.Text:=s;
 end; 
end;

[Johnson]

http://www.delphisources.ru/pages/fa...place.php.html
Так не кошерно? Или производительность критична?

[tarasdj]

Выше изложеные коды удаляют всю строку до символа ":", а я вам предлагаю код который удаляет только все символы ":" в строке.

P.S. В строчку j:=pos(':',k); заносим символ корый надо удалить из строки!!!

[psycho-coder]

Сообщение от tarasdj

Выше изложеные коды удаляют всю строку до символа ":", а я вам предлагаю код который удаляет только все символы ":" в строке.

P.S. В строчку j:=pos(':',k); заносим символ корый надо удалить из строки!!!

StringReplace заюзать религия не позволяет?

[Пепел Феникса]

Выше изложеные коды удаляют всю строку до символа ":", а я вам предлагаю код который удаляет только все символы ":" в строке.

а вы перечитайте то просьбу ТС.
да и ваш код не эффективен.