записать текст из мемо в Stringgrid

← →
my_sweet (2006-03-23 16:56) [0]

Пожалуйста, помогите текст, который записан в memo, разбитый по словам записать в первый столбик stringGrid!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
По словам у меня текст разбивает функция GetSubStr, которая находит пробелы. Вот ее описание:
function GetSubStr(str: string; count: integer): string;
var
i, j, c: integer;
pos1, pos2: integer;
s, r: string;
begin
s := str + " ";
c := 0;

for i:=1 to length(s) do begin
if (s[i] <> " ") then begin
pos1 := i;
for j:=pos1 to length(s) do begin
if (s[j] = " ") then begin
pos2 := j;
r := Copy(s, pos1, pos2 - pos1);
inc(c);
if (c = count) then begin
result := r;
exit;
end;
Delete(s, pos1, pos2 - pos1);
break;
end;
end;
end;
end;
end;

← →
MBo © (2006-03-23 17:00) [1]

достаточно одной таблэтки:

StringGrid1.Cols[1].CommaText:=str;

← →
Сергей М. © (2006-03-23 17:01) [2]

> разбитый по словам

Что такое "слово" ?
Дай четкое определение ..

← →
my_sweet (2006-03-23 17:07) [3]

слово, это какой-то набор символов от пробела до пробела

← →
my_sweet (2006-03-23 17:24) [4]

спасибо, с StringGrid1.rows[i+1].CommaText:=str получилось, но вот он у меня почему-то , и "
записывать в яйчейку не хочет, но зато с другими одиночными символами и словами работает
прекрасно, вы не подскажете почему?????? кстати, те яйчейки stringgrid,
куда должны были поместиться , и " остаются пустыми ...

вот, если что, кусочек кода...

for i := 0 to memo2.Lines.Count-1 do
begin
str:=memo2.Lines[i];
j := GetWordsCount(Memo1.Lines[i]);
StringGrid1.RowCount:= Memo2.Lines.Count;
StringGrid1.rows[i+1].CommaText:=str;

← →
MBo © (2006-03-23 17:30) [5]

>но вот он у меня почему-то , и " записывать в яйчейку не хочет,
Ну это ты хелп не прочитал по CommaText - запятые - тоже разделители

DelimitedText используй

← →
my_sweet (2006-03-23 17:46) [6]

почему-то таже фигня, написала вот так
StringGrid1.rows[i].DelimitedText:=str, ПРАВИЛЬНО???, но , и " упорно пропускаются???, а в help-е
кроме строчки что DelimitedText - свойство , ничего больше нету!!!

> my_sweet (23.03.06 16:56)

> Пожалуйста, помогите текст, который записан в memo, разбитый
> по словам записать в первый столбик stringGrid

Извини за любопытство, но как текст попал в memo?

--
Regards, LVT.

записать текст из мемо в Stringgrid Найти похожие ветки