Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Пробелы в строке / 7 сообщений из 7, страница 1 из 1
04.11.2003, 10:38
    #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:47
    #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:52
    #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:53
    #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, 11:09
    #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, 14:40
    #32314831
Song
Song
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в строке
S:=StringReplace(S,#32,'',[rfReplaceAll]);

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

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


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