ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Пробелы в строке
7 сообщений из 7, страница 1 из 1
Пробелы в строке
    #32314440
Апач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апач
Гость
Не подскажете, уважаемые, как убрать пробелы в строке такого вида:
1111 , 23456, 45677, 55677, 99999
Я полагаю, нужно использовать ф-цию Pos
Пример в хелпе нашел:
var S: string;

begin
S := ' 123.5';
{ Convert spaces to zeros }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end;
Но вот как убрать пробелы, ума не приложу.
...
Рейтинг: 0 / 0
04.11.2003, 10:38
| Ответить | Цитировать | Написать  
Пробелы в строке
    #32314451
Артем1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артем1
Участник
Код: plaintext
1.
2.
3.
4.
5.
begin 
S := ' 123.5'; 
{ Convert spaces to empty strings } 
while Pos(' ', S) >  0  do 
S[Pos(' ', S)] := ''; 
end;

?
...
Рейтинг: 0 / 0
04.11.2003, 10:47
| Ответить | Цитировать | Написать  
Пробелы в строке
    #32314457
Апач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апач
Гость
автор писал:begin
S := ' 123.5';
{ Convert spaces to empty strings }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '';
end;

Incompatible types: "Char" and "String"
...
Рейтинг: 0 / 0
04.11.2003, 10:52
| Ответить | Цитировать | Написать  
Пробелы в строке
    #32314458
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
Еще лучше так

Код: plaintext
1.
2.
3.
4.
5.
begin 
S := ' 123.5'; 
{ Convert spaces to empty strings } 
while Pos(' ', S) >  0  do 
S := StringReplace(S,' ','')'; 
end;


-- Tygra's --
...
Рейтинг: 0 / 0
04.11.2003, 10:53
| Ответить | Цитировать | Написать  
Пробелы в строке
    #32314480
Rostyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rostyk
Участник
Jedi Code Library http://jvcl.sourceforge.net/
JclStrings.pas

Replaces all occurrences of a character with another character
function StrReplaceChar(const S: AnsiString; const Source: Char; const Replace: Char): AnsiString;

Unit
JclStrings
Parameters
const S: AnsiString
The source string.
const Replace: Char
The character to use as a replacement of Search.
Search
The character to replace.
Return Value
The string with all replacements performed.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
function StrReplaceChar(const S: AnsiString; const Source, Replace: Char): AnsiString;
var
  I: Integer;
begin
  Result := S;
  for I :=  1  to Length(S) do
    if Result[I] = Source then
      Result[I] := Replace;
end;
...
Рейтинг: 0 / 0
04.11.2003, 11:09
| Ответить | Цитировать | Написать  
Пробелы в строке
    #32314831
Song
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Song
Гость
S:=StringReplace(S,#32,'',[rfReplaceAll]);

-----
Прежде чем сказать "Невозможно", подумай, прав ли ты?!
...
Рейтинг: 0 / 0
04.11.2003, 14:40
| Ответить | Цитировать | Написать  
Пробелы в строке
    #32315111
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
2 Song
Точно.
Все время путаю Дельфи и T-SQL, е-мое.

-- Tygra's --
...
Рейтинг: 0 / 0
04.11.2003, 16:59
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Пробелы в строке
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]