Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как убрать символы переноса в ячейке StringGrid

N.Cage © (2013-01-20 10:03:00)
Здравствуйте! Есть таблица StringGrid в которую юзеры вбивают свои данные, особо ленивые используют буфер содержимое которого иногда содержит символы переноса или другие ненужные символы. Например если скопировать ячейку Excel,а не лишь ее содержимое(выделив вручную). Как убрать эти спецсимволы на этапе вставки или изменения содержимого ячейки грида?

Dimka Maslov (2013-01-20 21:58:00) [1]
for i := 1 to Length(S) do if S[i] < #32 then S[i] := #32;

Игорь Шевченко (2013-01-20 14:13:00) [2]
clickmaker © (20.01.13 11:20) [3]

Ты маляр Шлемиль прямо

N.Cage (2013-01-20 11:31:00) [3]
Спасибо большое!

clickmaker (2013-01-20 11:20:00) [4]
function ReplaceControlChars(const AStr, ACharsToReplace: string; AReplaceChar: char = #32): string;
var
c: char;
i: integer;
begin
Result := AStr;
for i := 0 to Length(ACharsToReplace)-1 do
Result := StringReplace(Result, ACharsToReplace[i], AReplaceChar, [rfReplaceAll]);
end;

ReplaceControlChars(CellContent, #13#10#9);

N.Cage (2013-01-20 10:59:00) [5]
Два квадратика чаще всего :-)

Inovet (2013-01-20 10:47:00) [6]
Если сможешь отличить нужные от ненужных.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »