Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.09;
Скачать: 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 вся ветка

Текущий архив: 2006.04.09;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.047 c
2-1143434756
nyron
2006-03-27 08:45
2006.04.09
поиск по форме


15-1142793886
Piter
2006-03-19 21:44
2006.04.09
Может кто разбирается в настройках .htaccess ?


2-1143531214
Andrey V.
2006-03-28 11:33
2006.04.09
Помогите с "тривиальным" запросом


2-1143275526
Alex7
2006-03-25 11:32
2006.04.09
????????????


4-1137854444
Qstream
2006-01-21 17:40
2006.04.09
USB i D.