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

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

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

записать текст из мемо в Stringgrid [D7, XP]

my_sweet © (2006-03-23 16:56:00)
Пожалуйста, помогите текст, который записан в 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;

Leonid Troyanovsky (2006-03-23 18:14:00) [1]

> my_sweet (23.03.06 16:56)

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

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

--
Regards, LVT.

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

MBo (2006-03-23 17:30:00) [3]
>но вот он у меня почему-то , и " записывать в яйчейку не хочет,
Ну это ты хелп не прочитал по CommaText - запятые - тоже разделители

DelimitedText используй

my_sweet (2006-03-23 17:24:00) [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;

my_sweet (2006-03-23 17:07:00) [5]
слово, это какой-то набор символов от пробела до пробела

Сергей М. (2006-03-23 17:01:00) [6]

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

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

MBo (2006-03-23 17:00:00) [7]
достаточно одной таблэтки:

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

Наверх

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