Загрузить в Stringgrid содержимое Мемо

[werrey]

Здравствуйте.

Подскажите пожалуйста, как загрузить текст из Мемо в Stringgrid,
чтобы он заполнил соответствующие ячейки?
Вот текст в Мемо:

1|2|3|4|5|6|7|8|9
1|2|3|4|5|6|7|8|9
1|2|3|4|5|6|7|8|9
1|2|3|4|5|6|7|8|9

Stringgrid состоит из 9-и колонок и 4-х строк.
Соответственно в Stringgrid каждая цифра должна загрузиться в свою
ячейку, без символа '|' .

[denisbrain]

Сообщение от werrey

Здравствуйте.

Подскажите пожалуйста, как загрузить текст из Мемо в Stringgrid,
чтобы он заполнил соответствующие ячейки?
Вот текст в Мемо:

1|2|3|4|5|6|7|8|9
1|2|3|4|5|6|7|8|9
1|2|3|4|5|6|7|8|9
1|2|3|4|5|6|7|8|9

Stringgrid состоит из 9-и колонок и 4-строк.
Соответственно в Stringgrid каждая цифра должна загрузиться в свою
ячейку, без символа '|' .

Function LoadTableFormFile(Table:TStringGrid;Filename:string;ch:char=';';StartRow:integer=0):boolean;
var t,l,x,y:integer;
    s2,s:string;
    f:textfile;
begin
if fileage(Filename)>0 then begin
  assignfile(f,Filename);
  reset(F);
y:=StartRow-1;

  repeat
  readln(f,s);
  y:=y+1;
  if y>=Table.RowCount then Table.RowCount:=y+1;
  l:=length(s);
  s2:='';
  t:=0;
  x:=1;
  while x<l do begin
       if s[x]='#' then begin
     s2:=s2+chr(strtoint(copy(s,x+1,2)));
     x:=x+3; end;
     if (s[x]=ch) or (x=l) then begin
     if x=l then if s[x]<>ch then s2:=s2+s[x];


     Table.Cells[t,y]:=s2;
     t:=t+1;
     if t> Table.ColCount then Table.ColCount:=t+1;
     s2:='';
     end else
     begin
      s2:=s2+s[x];
     end;
      x:=x+1;
    end;

  until eof(f);
  closefile(f);
  end;
end;


Function SaVeTabelToCSV(Table:TStringGrid;Filename:string;ch:char=';'):integer;
  var x,y:integer;
      s:string;
      F:Textfile;
      function ecran(s:string):string;
      var s2:string;i:integer;
      begin
      s2:='';
        for I:=1 to length(s) do if (s[i]<>ch) or (ord(s[i])<32) then s2:=s2+s[i] else s2:=s2+'#'+inttostr(ord(s[I]));
        result:=s2;
      end;
begin
Rewrite(f,Filename);
for y:=0 to Table.RowCount-1 do begin
  s:='';
  for X:=0 to Table.ColCount-1 do
  s:=s+ecran(Table.Cells[x,y])+ch;
  writeln(f,s);
end;
 closefile(F);
end;

LoadTableFormFile(StringGrid1,filename,'|');

если из TStringList

Function LoadTableFormTStringList(Table:TStringGrid;TextList:TstringList;ch:char=';';StartRow:integer=0):boolean;
var m,t,l,x,y:integer;
    s2,s:string;
    f:textfile;
begin
if TextList<>nil then begin
y:=StartRow-1;
  for M:=0 to TextList.count-1 do begin 
  s:=TextList[m];
  y:=y+1;
  if y>=Table.RowCount then Table.RowCount:=y+1;
  l:=length(s);
  s2:='';
  t:=0;
  x:=1;
  while x<l do begin
       if s[x]='#' then begin
     s2:=s2+chr(strtoint(copy(s,x+1,2)));
     x:=x+3; end;
     if (s[x]=ch) or (x=l) then begin
     if x=l then if s[x]<>ch then s2:=s2+s[x];
     Table.Cells[t,y]:=s2;
     t:=t+1;
     if t> Table.ColCount then Table.ColCount:=t+1;
     s2:='';
     end else
     begin
      s2:=s2+s[x];
     end;
      x:=x+1;
    end;
 end;end;

 end;

LoadTableFormTStringList(form1.StringGrid1,TstringList(form1.memo1.lines),'|');