Удаление пробелов

← →
pashaz © (2003-12-25 10:40) [0]

Привет.

Есть база, в ней поле типа text. Содержимое примерно следующее:
А 000 876 434

Как правильно удалить все пробелы во всех записях в этом поле?

← →
Floppy (2003-12-25 10:57) [1]

Repeat
S:= Copy(S, 1, Pos(" ", S) - 1) +
Copy(S, Pos(" ", S) + 1, Length(S) - Pos(" ", S) +1);
Until Pos(" ", S) = 0;

В том случае, если первый символ не прбел, а если пробел, додумай дальше

← →
pashaz © (2003-12-25 11:01) [2]

А как лучше сделать перебор по базе?

← →
Term © (2003-12-25 11:04) [3]

а как ты обычно делаеш перебор, так и делай

← →
Floppy (2003-12-25 11:08) [4]

S это в качестве примера, можно сразу с FieldByName().
Можно так:
Table.Open;
While Not Table.Eof do
begin
...
...
Table.Next;
end;
Table.Close;

передние нули нужны?
запросом cStr(CLng("000 876 434"))
UPDATE Table SET Filed = cStr(CLng(Filed))

количество пробелов в поле постоянное? тоже можно запросом
или в несколько проходов (это первый пробел)
UPDATE Table SET Filed = Left(Filed, InStr(Filed, " ")-1)+Right(Filed, Len(Filed)-InStr(Filed, " "))

если в дельфях это проще, вся мощь языка в твоем распоряжении, 1 -ин способ StringReplace(St, " ", "", [rfReplaceAll]);

> Как правильно удалить
а вот это вопрос вопросов. правду считаеш что есть какой нибудь правильный способ? если работает и устраивает то считай он и есть.

Удаление пробелов Найти похожие ветки