}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 3a2d71f0 Описание: Код загружен: 9 сентября 2009, 21:27 (IlluminatI)

  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var i: integer;
  3. s, st: string;
  4. begin
  5. Memo1.Lines.LoadFromFile('soso.txt');
  6. s:=Memo1.Text;
  7. while pos('*',s)>0 do
  8. delete(s, pos('*',s),1);
  9. while pos(#13#10,s)>0 do
  10. delete(s,pos(#13#10,s),2);
  11. while pos('.',s)>0 do
  12. begin
  13. st:=Copy(s,pos('.',s),pos(';',s));
  14. delete(s,pos('.',s),pos(';',s));
  15. ListBox1.Items.Add(st);
  16. st:='';
  17. end;
  18. end;

Ссылка на данный код:

На главную страницу сервиса обмена кодом »