VPF::считывание строки - Форум программистов

plazmaser

Дата 26.2.2013, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 26.2.2013

Репутация: нет
Всего: нет

привет форумчане!!!
есть вот такой примерчик
припустим в     Memo1 есть такой текст
1слово пробел 2слово пробел 3слово
4слово пробел 5слово пробел 6слово
7слово пробел 8слово пробел 9слово
и т.д.
нужно считать строки и
1слово 4слово 7слово перекинуть в Memo2

2слово 5слово 8слово  перекинуть в Memo3

3слово 6слово 9слово перекинуть в Memo3

или все распределить в StringGrid по колонкам
спасибо кто откликнется.

Чучмек

Дата 27.2.2013, 00:17 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Код


type
 TArrayStringLists=array of TStringList;
function StringListToArrayStringLists(list:TStrings;separator:string):TArrayStringLists;
var
 i:integer;
begin
SetLength(result,list.Count);
for i:=0 to list.Count-1 do
 begin
 result[i]:=TStringList.Create;
 result[i].Text:=StringReplace(list[i],separator,#13,[rfReplaceAll]);
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 m:TArrayStringLists;
 i:integer;
begin
m:=StringListToArrayStringLists(Memo1.Lines,'');
StringGrid1.ColCount:=0;
StringGrid1.RowCount:=length(m);
if length(m)=0 then StringGrid1.Rows[0][0]:='';
for i:=0 to length(m)-1 do
 begin
 if StringGrid1.ColCount<m[i].Count then StringGrid1.ColCount:=m[i].Count;
 StringGrid1.Rows[i].Clear;
 StringGrid1.Rows[i]:=m[i];
 m[i].Free;
 end;
m:=nil;
end;

Это сообщение отредактировал(а) Чучмек - 27.2.2013, 00:33

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Akella

Дата 27.2.2013, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Вместо того, чтобы даеть ему удочку и научить ловить, ты дал ему рыбу smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »