Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > считывание строки


Автор: plazmaser 26.2.2013, 23:33
привет форумчане!!!
есть вот такой примерчик
припустим в     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
Код

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;
 smile 

Автор: Akella 27.2.2013, 11:23
Вместо того, чтобы даеть ему удочку и научить ловить, ты дал ему рыбу  smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)