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

записать текст из мемо в 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  -  свойство , ничего больше нету!!!

---

← →
Leonid Troyanovsky ©   (2006-03-23 18:14) [7]

> my_sweet   (23.03.06 16:56)

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


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

--
Regards, LVT.

---

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

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



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