Скачать: CL | DM;

Как убрать символы переноса в ячейке 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]

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

---

← →
Игорь Шевченко ©   (2013-01-20 14:13) [5]

clickmaker ©   (20.01.13 11:20) [3]

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

---

← →
Dimka Maslov ©   (2013-01-20 21:58) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c