|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
За вопрос стыдно :(
Как удалить все пробелы из строки?
|
#2
|
||||
|
||||
Сначала найди все пробелы строки функцией поиска (мне писать лень, сам подумай), а потом сделай значение пробелов равным:=''
|
#3
|
||||
|
||||
Чё то типа: ' ':=''
|
#4
|
||||
|
||||
Чё то типа: ' ':='' не пойдёт, несовпадения типов char и String
|
#5
|
|||
|
|||
За вопрос стыдно :(
var
c, i: integer; stt, st, st1: string; begin c := 0; st := edit1.Text; for i := 1 to Length(st) do begin stt := copy(st, i, 1); if (stt = ' ') and (c >= 1) then begin st1 := st1; c := c + 1; end else if (stt = ' ') and (c = 0) then begin c := c + 1; st1 := st1 + stt; end else if (stt <> ' ') then begin c := 0; st1 := st1 + stt; end end; edit2.text := st1; end; |
#6
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := 'Строка с пробелами'; ShowMessage( StringReplace( s, ' ', '', [rfReplaceAll] ) ); end; |
#7
|
||||
|
||||
или так
Код:
procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := ' Тестовая строка '; while Pos( ' ', s ) > 0 do Delete( s, Pos( ' ', s ), 1 ); ShowMessage( s ); end; |
#8
|
||||
|
||||
Ребята спасибо
|