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

← →
N.Cage (2013-01-20 10:03) [0]

Здравствуйте! Есть таблица StringGrid в которую юзеры вбивают свои данные, особо ленивые используют буфер содержимое которого иногда содержит символы переноса или другие ненужные символы. Например если скопировать ячейку Excel,а не лишь ее содержимое(выделив вручную). Как убрать эти спецсимволы на этапе вставки или изменения содержимого ячейки грида?

← →
Inovet © (2013-01-20 10:47) [1]

Если сможешь отличить нужные от ненужных.

← →
N.Cage (2013-01-20 10:59) [2]

Два квадратика чаще всего :-)

← →
clickmaker © (2013-01-20 11:20) [3]

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 11:31) [4]

Спасибо большое!

for i := 1 to Length(S) do if S[i] < #32 then S[i] := #32;

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