StringGrid Сохранение в файл в виде таблицы.

[werrey]

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

Подскажите пожалуйста, как сохранять из StringGrid в текстовый файл,
чтобы в тхт файле был такой же вид таблицы, как и в StringGrid ?



Заранее благодарю!

[Serge_Bliznykov]

а Вы сможете привести пример подобного TXT файла?

а вообще, если подходить строго, то

чтобы в тхт файле был такой же вид таблицы, как и в StringGrid ?

это нереально, ибо в текстовом файле нельзя обеспечить точно такой же вид, как в StringGrid!

[BDA]

function tir(n: integer): string;
var
  i: integer;
  s: string;
begin
  s := '';
  for i := 1 to n do
    s := s + '-';
  tir := s;
end;

function adder(s: string; n: integer): string;
var
  i: integer;
  tmp: string;
begin
  tmp := '';
  for i := 1 to n - length(s) do
    tmp := tmp + ' ';
  adder := tmp + s;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i, j, dl: integer;
  s1, s2: string;
  str: tstringlist;
begin
  str := tstringlist.create;
  setlength(a, stringgrid1.ColCount);
  for i := 0 to stringgrid1.ColCount - 1 do
  begin
    a[i] := 0;
    for j := 0 to stringgrid1.rowcount - 1 do
      if length(stringgrid1.Cells[i, j]) > a[i] then
        a[i] := length(stringgrid1.Cells[i, j]);
  end;
  dl := 0;
  for i := 0 to stringgrid1.ColCount - 1 do
    dl := dl + a[i];
  s1 := tir(dl + stringgrid1.ColCount + 1);
  str.Append(s1);
  for i := 0 to stringgrid1.rowcount - 1 do
  begin
    s2 := '|';
    for j := 0 to stringgrid1.colcount - 1 do
      s2 := s2 + adder(stringgrid1.Cells[j, i], a[j]) + '|';
    str.Append(s2);
    str.Append(s1);
  end;
  str.SaveToFile('1.txt');
  setlength(a, 0);
  str.free;
end;

Получается вот такая таблица:

----------------------------------------
|привет|      |   тоже|     |          |
----------------------------------------
|   как|хорошо|отлично|     |    чем-то|
----------------------------------------
|  дела|     а|       |нужно| заполнить|
----------------------------------------
|      |     у|       |     |таблицу :)|
----------------------------------------
|      |  тебя|       |     |          |
----------------------------------------

Чуть укороченный вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i, j, dl: integer;
  f: textfile;
  s1: string;
begin
  assignfile(f, '2.txt');
  rewrite(f);
  setlength(a, stringgrid1.ColCount);
  dl := 0;
  for i := 0 to stringgrid1.ColCount - 1 do
  begin
    a[i] := 0;
    for j := 0 to stringgrid1.rowcount - 1 do
      if length(stringgrid1.Cells[i, j]) > a[i] then
        a[i] := length(stringgrid1.Cells[i, j]);
    dl := dl + a[i];
  end;
  s1 := '';
  for i := 1 to dl + stringgrid1.ColCount + 1 do
    s1 := s1 + '-';
  write(f, s1);
  for i := 0 to stringgrid1.rowcount - 1 do
  begin
    writeln(f);
    write(f, '|');
    for j := 0 to stringgrid1.colcount - 1 do
      write(f, stringgrid1.Cells[j, i]: a[j], '|');
    writeln(f);
    write(f, s1);
  end;
  closefile(f);
  setlength(a, 0);
end;

[denisbrain]

Function LoadTableFormFile(Table:TStringGrid;Filename:string;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]=';') or (x=l) then begin
     if x=l then if s[x]<>';' 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):integer;
  var x,y:integer;
      s:string;
      F:Textfile;

      function ecran(s:string):string;
      var s2:string;i:integer;
      begin
      s2:='';

      if pos(';',s)>0 then begin
        for I:=1 to length(s) do if (s[i]<>';') or (ord(s[i])<32) then s2:=s2+s[i] else s2:=s2+'#'+inttostr(ord(s[I]));
        end else s2:=s; 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])+';';
  writeln(f,s);
end;
 closefile(F);
end;

[werrey]

Спасибо всем, я наверно вопрос не слишком правильно поставил.

Есть StringGrid, к примеру 10 х 20 ячеек, с разными числами.
Надо, чтобы эти числа записывались в текстовый файл, в таком же виде, без переносов и тд.
То есть, если я открою тхт файл, я увижу такую же как-бы таблицу, как и в StringGrid. Желательно разделить числа в файле символом '|'

[Serge_Bliznykov]

То есть, если я открою тхт файл, я увижу такую же как-бы таблицу, как и в StringGrid. Желательно разделить числа в файле символом '|'

А пост #3 от BDA разве не это делает?!!

[werrey]

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

А пост #3 от BDA разве не это делает?!!

Его код немного не то делает, там фиг разберёшься.
Я сохранение через мемо сделал.

procedure TForm1.Button3Click(Sender: TObject);
Var
i,j,n: integer;
str:string;
begin

for j:=0 to StringGrid1.RowCount -1 do
for i:=0 to StringGrid1.ColCount -1 do
if StringGrid1.Cells[i,j] = '' then StringGrid1.Cells[i,j] := '0';
//StringGrid1.Cells[i,j] := format('0',[i,j]) ;

Memo1.Clear;

for i:=0 to StringGrid1.RowCount -1 do
begin
if i>0 then
memo1.Lines.Add('');
for j:=0 to StringGrid1.ColCount -1 do
memo1.seltext:=(''+StringGrid1.Cells[j,i]+'|');
end;


for n:=0 to StringGrid1.ColCount -1 do  begin
str:=memo1.lines[n]; delete(str,Length(str),30); memo1.lines[n]:=str;

end; //end;

 Memo1.Lines.SaveToFile('Тест.txt');

end;

Теперь загвоздка, как загрузить этот тхт файл в виде матрицы обратно в стринггрид, чтобы все записалось в свои ячейки.

[Alex11223]

Как писал, так и грузить. Парси файл.

[=master=]

Ну тогда уже не мемо, а хотябы TStringList. А то мемо уж сильно по топорному.

[denisbrain]

LoadTableFormFile
SaVeTabelToCSV

чем тебе не вариант ?