Sečtení sudých čísel ve sloupcích matice – Delphi – Fórum – Programujte.com

Ahoj, potřeboval bych poradit.. Vytvořil jsem program, který mi připraví matici podle zadaných parametrů - počet řádků a počet sloupců. Potom do této matice pomocí generátoru náhodných čísel vygeneruji čísla z intervalu od 1 do 10. Potřeboval bych zajistit aby se mi ve sloupcích sečetly sudá čísla. Něco jsem zkusil, ale to samotné sečtení mi nějak nejde :-/. Přikládám zdrojová kód a prosím vás o radu :-).

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    bt_priprav: TButton;
    edtn: TEdit;
    edtm: TEdit;
    bt_nacti: TButton;
    sg: TStringGrid;
    lbl_pro_n: TLabel;
    lbl_pro_m: TLabel;
    bt_soucet: TButton;
    bt_konec: TButton;
    Label1: TLabel;
    procedure bt_pripravClick(Sender: TObject);
    procedure bt_nactiClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bt_konecClick(Sender: TObject);
    procedure bt_soucetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Tmat=array[1..10,1..10] of integer; {určí hodnotu v jaké se má pohybovat
                                       generátor}
var
  Form1: TForm1;
  a:Tmat;
  n,m:integer; {určí proměnnou n a m, konrétně o jaký typ se jedná}
implementation

{$R *.dfm}

procedure TForm1.bt_pripravClick(Sender: TObject);
var sirka,vyska:integer;
begin
n:=StrToInt(Edtn.Text);       {načte z edtn hodnotu pro počet sloupců}
m:=StrToInt(Edtm.Text);       {načte z edtm hodnotu pro počet řádků}
sg.colcount:=n;         {nastavení počtu sloupců pomocí edtn}
sg.rowcount:=m;         {nastavení počtu řádků pomocí edtm}
sirka:=sg.DefaultColWidth;
vyska:=sg.DefaultRowHeight;
sg.Width:=n*sirka+n+4;        {nastavení šírky buňky}
sg.Height:=m*vyska+m+4;       {nastavení výšky buňky}
bt_nacti.Visible:=true;        {po nachystání stringridu se zobrazi
                                tlačítko pro naplnění stringridu}
end;

function soucet(j:integer; var a:Tmat):integer;
var i:integer;
begin
Result:=0;
for i:=1 to m do
  if a[i,j] mod 2=0 then
    Result:=Result+a[i,j];
end;

procedure TForm1.bt_nactiClick(Sender: TObject);
var i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
begin
sg.cells[j-1,i-1]:=IntToStr(a[i,j]);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10)+1;

end;

procedure TForm1.bt_konecClick(Sender: TObject);
begin
close;
end;

procedure TForm1.bt_soucetClick(Sender: TObject);
var result:integer;
begin
label1.caption:=IntToStr(result);
end;

end.

Nevím co ti tam přesně nefunguje, ale zkus udělat menší úpravu v tom výpisu, protože si myslím, že samotnou funkci máš dobře. Nechci se mýlit, ale zkus napsat tohle....

procedure TForm1.bt_soucetClick(Sender: TObject);
var result:integer;
begin
label1.caption:=IntToStr(soucet(j,a));  //Jak jsem pochopil, tak (j) je číslo
end;                                   //sloupce a (a) matice.. Tam dosad..

Ten result mi tam nějak neseděl... :D

#1 Rodney
2 otázky.

1.Proč nejdříve načítáš do a[i,j] matici 10x10 a pak pak teprve v obsluze bt_nactiClick to plníš na matici mxn

  To se dá udělat  najednou přímo v tom bt_nactiClick.

  Matici Tmat natypuj jako Tmat=array of array of integer;

 a pak matici a urči velikost takto: SetLength(a,m,n); a tu teprve naplň (tato matice začíná indexy 0)

for i:=0 to m-1 do

  for j:=0 to n-1 do

    a[i,j]:=random(10)+1;  a pak samozřejmě ji zobraz ve StringGridu.

To bude mít tu výhodu, že při každém zmáčknutí bt_nactiClick se ti matice naplní jinými čísly.

2. Což je horší to je použití funkce soucet. Ta je napsána dobře, ale její použití špatně.

   Pro výpis součtů si přidej do Stringridu ještě jeden řádek. a pak součty jednotlivých sloupců vypisuj

   třeba takto: (ve funkci součet je také potřeba změnit  cyklus na:)
   for i:=0 to m-1 do

      if a[i,j] mod 2=0 then

         Result := Result+a[i,j];
 

procedure TForm1.bt_soucetClick(Sender: TObject);
begin
for j := 0 to n-1 do
  sg.cells[j,n] := IntToStr(soucet(j,a);
end;  

#3 Honzc
Vyzkoušel jsem obě rady, bohužel si s tím lámu hlavu dál :(... Každopádně jsem velmi rád za vaši ochotu pomoct mi :-)...

dejme tomu že první radu pro zjednodušení nastavení matice udělám později, nejdříve bych rád docílil funkčnosti součtu těch čísel :-).

upravil jsem funkci následně

function soucet(j:integer; var a:Tmat):integer;
var i:integer;
begin
Result:=0;
for i:=1 to m-1 do
  if a[i,j] mod 2=0 then
    Result:=Result+a[i,j];

a samotnou proceduru pro výpočet následně 

procedure TForm1.bt_soucetClick(Sender: TObject);
var i,j:integer;
begin
for j:=0 to n-1 do
  sg.Cells[j,n]:=IntToStr(soucet(j,a));

end;

bohužel mi to ale opět nefunguje, program spustím dám připravit, naplnit ale jakmile dám součet nic se nestane :-/. Potom ale zadám do editů větší počet řádků a sloupců, dám připravit a vidím tam že se to sečetlo, ale je to sečetlé špatně. Prosím vás tedy znovu o radu :-).

Zkus předělat tu funkci na tohle, přidal jsem jednu neznámou a pak result vyvolám jen jednou....

function soucet(j:integer; var a:Tmat):integer;
var i,vysledek:integer;
begin
vysledek:=0;
for i:=1 to m-1 do
  if a[i,j] mod 2=0 then
    vysledek:=vysledek+a[i,j];
result:=vysledek;
end;

Bohužel jsem to zkusil a nefunguje mi to :(, vážně si už nevím rady. Zkusím vám sem přiložit zdroják a pokud tam najdete něco špatně prosím o pomoc. Trávím nad tím už neskutečně moc hodin a zmocňuje se mě obrovská bezmoc :(.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    bt_priprav: TButton;
    edtn: TEdit;
    edtm: TEdit;
    bt_nacti: TButton;
    sg: TStringGrid;
    lbl_pro_n: TLabel;
    lbl_pro_m: TLabel;
    bt_soucet: TButton;
    bt_konec: TButton;
    Label1: TLabel;
    procedure bt_pripravClick(Sender: TObject);
    procedure bt_nactiClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bt_konecClick(Sender: TObject);
    procedure bt_soucetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Tmat=array[1..10,1..10] of integer; {určí hodnotu v jaké se má pohybovat
                                       generátor}
var
  Form1: TForm1;
  a:Tmat;
  n,m:integer; {určí proměnnou n a m, konrétně o jaký typ se jedná}
  result:integer;
  i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.bt_pripravClick(Sender: TObject);
var sirka,vyska:integer;
begin
n:=StrToInt(Edtn.Text);       {načte z edtn hodnotu pro počet sloupců}
m:=StrToInt(Edtm.Text);       {načte z edtm hodnotu pro počet řádků}
sg.colcount:=n;         {nastavení počtu sloupců pomocí edtn}
sg.rowcount:=m;         {nastavení počtu řádků pomocí edtm}
sirka:=sg.DefaultColWidth;
vyska:=sg.DefaultRowHeight;
sg.Width:=n*sirka+n+4;        {nastavení šírky buňky}
sg.Height:=m*vyska+m+4;       {nastavení výšky buňky}
bt_nacti.Visible:=true;        {po nachystání stringridu se zobrazi
                                tlačítko pro naplnění stringridu}
end;

function soucet(j:integer; var a:Tmat):integer;
var i,vysledek:integer;
begin
Vysledek:=0;
for i:=1 to m-1 do
  if a[i,j] mod 2=0 then
    vysledek:=vysledek+a[i,j];
result:=vysledek;
end;

procedure TForm1.bt_nactiClick(Sender: TObject);
begin
for i:=1 to m do
for j:=1 to n do
begin
sg.cells[j-1,i-1]:=IntToStr(a[i,j]);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10)+1;

end;

procedure TForm1.bt_konecClick(Sender: TObject);
begin
close;
end;

procedure TForm1.bt_soucetClick(Sender: TObject);
var i,j:integer;
begin
for j:=0 to n-1 do
  sg.Cells[j,n]:=IntToStr(result(j,a));
end;

end.

Zkoušel si program odkrokovat ?? A zjistit kde ti to vázne. Hodilo by se to, zadej si break point na funkci soucet a pak to odkrokuj a do Watch Listu si zadej  

i, a[i,j], vysledek

Pak napiš kde ti to začne blbnout.

Blbne mi to v proceduře pro součet.

pokud chci spustit program napíše mi to 

[Warning] Unit1.pas(80): For loop control variable must be simple local variable.

Tak jsem si udělal vlastní krátký program, abych to zkusil a všechno mi to funguje. Abych to měl jednodušší, tak jsem si udělal normálně texťák kam sem napsal 10 čísel, některý sudý, některý lichý. Pak jsem si udělal pole (a) o velikosti 10 a nahrál jsem tam čísla ze souboru. Následně jsem jen zkopíroval tvojí funkci, samozřejmě jsem jen předělal dvojrozměrný pole na jednorozměrný atd... A vše funguje....  Pošlu sem celý program, jen tím chci poukázat na to, že funkce musí být napsaná dobře.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    function soucet():integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array[1..10] of integer;
  dll:textfile;

implementation

{$R *.dfm}

function TForm1.soucet():integer;
var i,vysledek:integer;
begin
vysledek:=0;
for i:=1 to 10 do
  if a[i] mod 2=0 then
    vysledek:=vysledek+a[i];
result:=vysledek;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,b:integer;
begin
AssignFile(dll,'text.txt');
reset(dll);
for i:=1 to 10 do
  begin
  read(dll,b);
  a[i]:=b;
  end;
closefile(dll);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.Caption:=IntToStr(soucet());
end;

end.

Podívej se k sobě, jestli tam nemáš nějakou chyba, já třeba hned vidím, že by sis měl odendat RESULT z VARU.

Nevěnuju se programování zrovna dlouho, ale rád bych se do toho dostal hlouběji. Nicméně nejsem schopný ještě si ty chyby ve svých programech pořádně najít a opravit. Myslíš že by jsi se mohl podívat na ten můj program přímo ? Je tady na tomto odkaze. Já totiž si vážně nevím rady, každopádně si strašně moc cením tvé pomoci :-).

http://www.edisk.cz/stahni/48501/Program_matice.rar_194.13KB.html

Jdu se na to podívat :) 

Tak jsem to rozjel :D:D:D 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    bt_priprav: TButton;
    edtn: TEdit;
    edtm: TEdit;
    bt_nacti: TButton;
    sg: TStringGrid;
    lbl_pro_n: TLabel;
    lbl_pro_m: TLabel;
    bt_soucet: TButton;
    bt_konec: TButton;
    Label1: TLabel;
    procedure bt_pripravClick(Sender: TObject);
    procedure bt_nactiClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bt_konecClick(Sender: TObject);
    procedure bt_soucetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Tmat=array[1..10,1..10] of integer; {určí hodnotu v jaké se má pohybovat
                                       generátor}
var
  Form1: TForm1;
  a:Tmat;
  n,m:integer; {určí proměnnou n a m, konrétně o jaký typ se jedná}
  i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.bt_pripravClick(Sender: TObject);
var sirka,vyska:integer;
begin
n:=StrToInt(Edtn.Text);       {načte z edtn hodnotu pro počet sloupců}
m:=StrToInt(Edtm.Text);       {načte z edtm hodnotu pro počet řádků}
sg.colcount:=n;         {nastavení počtu sloupců pomocí edtn}
sg.rowcount:=m;         {nastavení počtu řádků pomocí edtm}
sirka:=sg.DefaultColWidth;
vyska:=sg.DefaultRowHeight;
sg.Width:=n*sirka+n+4;        {nastavení šírky buňky}
sg.Height:=m*vyska+m+4;       {nastavení výšky buňky}
bt_nacti.Visible:=true;        {po nachystání stringridu se zobrazi
                                tlačítko pro naplnění stringridu}
end;

function soucet(j:integer;a:Tmat):integer;
var i,vysledek:integer;
begin
vysledek:=0;
for i:=1 to m do
  if a[i,j] mod 2=0 then
    vysledek:=vysledek+a[i,j];
result:=vysledek;
end;

procedure TForm1.bt_nactiClick(Sender: TObject);
begin
for i:=1 to m do
for j:=1 to n do
begin
sg.cells[j-1,i-1]:=IntToStr(a[i,j]);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10)+1;

end;

procedure TForm1.bt_konecClick(Sender: TObject);
begin
close;
end;

procedure TForm1.bt_soucetClick(Sender: TObject);
begin
 //for j:=0 to n do
  Label1.Caption:=IntToStr(soucet(2,a));
end;

end.

Ještě si změn ten výpis, upravil jsem si to na pracovní verzi :D,  Ta dvojka ukazuje číslo sloupce, kde to cheš zjistit. 

Ještě jako dodatek, aby si plně pochopil funkci nebo princip RESULT. Určitě víš, že funkce ti vyhodí rovnou výsledek. Jsou dvě možnosti tedy, jak výsledek do funkce zadat. První je, že když se například ta funkce jmenuje soucet, tak jen napíšeš soucet:=a+b+c+d , ale mužeš to také nahradit result:=a+b+c+d , Result automaticky vyhodnotí, že je konec funkce a výsledek je konečný. Ale když pak danou funkci vyvoláváš, musíš ji normálně vyvolat přes název té funkce .. Nemůžeš napsat, jako ty, result(j,a) , ale musíš ji vyvolat soucet(j,a). Ve tvém programu byl počítač naprosto zmaten.... Doufám, že jsem to napsal nějak srozumitelně :D  

Ještě přidám názornou ukázku

function soucet():integer;
begin
soucet:=1+2+3+4+5+6
end;

// ÚPLNĚ STEJNÉ JAKO

function soucet():integer;
begin
result:=1+2+3+4+5+6
end;

// AVŠAK KDYŽ FUNKCI VYVOLÁVÁŠ, MŮŽEŠ POUŽÍT JEN

Label1.Caption:= IntToStr( soucet() );

Děkuji ti moc :-). Nevím jak bych ti to mohl oplatit, jsem strašně rád za tvoji pomoc :-), zítra ráno si s tím pohraju, dneska už mi hlava vůbec nebere, a pak napíšu jak mi to funguje :-). Ještě jednou díky moc :-).

Tak jsem to vyzkoušel a funguje mi to :-).

Jen bych se chtěl zeptat jak zajistím aby se mi v tom labelu pro výsledek zobrazil součet ze všech sloupců ?

Uděláš si například nový StringGrid, ale pouze s jedním řádkem (sloupce upravíš podle matice) a tam pomocí for cyklu nahraješ součty sloupců..

procedure TForm1.bt_soucetClick(Sender: TObject);
begin
for j := 1 to n do       // n nebo m , nevim co jsou sloupce :D
  sg.cells[j-1,1] := IntToStr(soucet(j,a);
end;

A nebo jak už Honzc napsal, do tvého stringridu přidáš ještě jeden řádek a tam nahraješ součty. Ale kvůli přehlednosti bych normálně udělal ejště jeden StringGrid s jedním řádkem..... Vše bude přehlednější..

Udělal jsem to jak jsi napsal, vytvořil jsem nový stringrid a nastavil ho tak aby měl jeden řádek a počet sloupců podle matice, zkusil jsem tam vložit pomocí for cyklu součty sloupců ale nějak to nic nedělá :-/

procedure TForm1.bt_soucetClick(Sender: TObject);
var sirka2,vyska2:integer;
begin
n:=StrToInt(edtn.Text);
sg2.RowCount:=1;
sg2.ColCount:=n;
sg2.visible:=True;
sirka2:=sg2.DefaultColWidth;
vyska2:=sg2.DefaultRowHeight;
sg2.Width:=n*sirka2+n+4;
sg2.Height:=vyska2;
  for j:=1 to n do
  sg2.Cells[j-1,1]:=IntToStr(soucet(j,a));

Takhle je to správně, ve SG řádky/sloupce začínají nulou...

sg2.Cells[j-1,0]:=IntToStr(soucet(j,a));

Jo už to funguje kompletně :-), strašně moc díky :-). 

Mám ještě k tomuto programu 2 úkoly, s kterými nevím moc rady. Jedná se o následující:

Matici vytiskněte po řádcích ve tvaru tabulky.

Výsledky zapište do textového souboru Vysledky.pas.

Moc tedy jako netuším jak na to, protože jsem toto nedělal nikdy a nedaří se mi najít moc dobře vysvětlení v knížce, kterou mám :-/.

Nevím jakou máš knížku, že tam není výpis do souboru, ale určitě ji nahradí internet kde je naprosto vše. Výpis ze StringGridu do .txt není nic jiného než normální zápis do souboru. Na googlu si zadej něco jako: Delphi- StringGrid výpis nebo Delphi- StringGrid tisk nebo Delphi- zápis do souboru txt.

Je mnoho stránek, kde najdeš pomoc. Až budeš mít třeba nějaký kód a budeš si myslet, že ho máš dobře, ale stejně nebude fungovat, tak sem teprve napiš. :D:D:D Hodně štěstí :D

To s tím že to nemám v knížce jsem myslel spíš na to výsledek vytiskněte po řádcích ve tvaru tabulky.

Zkoušel jsem udělat ten výpis to Vysledky.pas, ale při kliknuti na tlačítko ulož mi to hodí chybu

procedure TForm1.bt_ulozClick(Sender: TObject);
var nazev:string;
Vystup:textfile;
i,j:integer;
vysledek:string;
begin
nazev:=Vysledek;
Assignfile(vystup, nazev);
rewrite(vystup);
writeln(vystup, n); writeln(vystup, 1);
for j:=1 to n do
  begin
  a[i,j]:=StrToInt(sg2.Cells[j-1,0]);
  writeln(vystup,a[i,j]);

#23 Rodney
"mi to hodí chybu" a jakou chybu ti to hodí??? Nenapíše to náhodou nějaké číslo té chyby? Není v nápovědě seznam těchto čísel chyb i s podrobným vysvětlením příčin?

v programu máš napsáno:

nazev:=Vysledek;
Assignfile(vystup, nazev);

a co obsahuje proměnná Vysledek??? Asi náhodnou hodnotu že? Nemělo tam být třeba 'Vysledky.pas' ???

Tady je celkem dobře vysvětlený tisk. Máš tam konkrétně i tisk SG, podívej se na to...

http://www.zive.cz/clanky/tipy-a-triky-v-delphi-dil-25/sc-3-a-104713/default.aspx

Upravil jsem to, soubor se mi uloží, ale se špatnými hodnotami, spíš je jich tam víc než by mělo, z toho jsou ale některé správně :-D.

Je chyba v tom, že nemám určený co je vlastně výsledek? 

procedure TForm1.bt_ulozClick(Sender: TObject);
var nazev,vysledek:string;
Vystup:textfile;
begin
nazev:='Vysledek.pas';
Assignfile(vystup, nazev);
rewrite(vystup);
writeln(vystup, n); writeln(vystup, 1);
for j:=1 to n do
  begin
  a[i,j]:=StrToInt(sg2.Cells[j-1,0]);
  writeln(vystup,a[i,j]);
  end;
  closefile(vystup);
  end;

Tady to tady máš celkem zbytečně, doporučuji to udělat normálně takhle..

Assignfile(vystup,'Vysledek.pas');

A pak nechápu co znamená tohle:D  Jestli to znamená typ matice, nebo kolik má matice sloupcu? 

writeln(vystup, n); writeln(vystup, 1);

A celej tenhle řádek vymaž..

var nazev,vysledek:string;

Nech si tam jen :

var Vystup:textfile;

A poslední věc. Ty máš vypsat do souboru pouze ty výsledky, které máš v tom druhým SG, což znamené ten součet sudých čísel ve sloupcích. V tom for cyklu používáš dvojrozměrný pole, který k tomu vlastěn vůbec nepotřebuješ... JEstli chceš vypsat do souboru jen tu hodnotu, tak stačí...

var pomocnik:integer;  // Do varu si přidáš jakoukoliv proměnnou

for j:=1 to n do
  begin
  pomocnik:=StrToInt(sg2.Cells[j-1,0]);
  writeln(vystup,pomocnik);
  end;

jop, už mi to funguje správně :-).. Děkuju ti moc :-)

Mám poslední dotaz a prosbu, to tisknutí matice jsem se rozhodl udělat jinak, a to to tak že ji vepíšu do texťáku, který bude sloužit jako tisk. Udělal jsem to, ale vepíše se mi to tam pod sebe a ne jako tabulka. To znamená že mám všechny hodnoty pod sebou, a já potřebuji aby byly stejně jako ta matice vygenerovaná.

Chci se tedy prosím zeptat, co zde změnit ?

procedure TForm1.bt_tiskClick(Sender: TObject);
var soubor:TextFile;
pomocnik:integer;
begin
Assignfile(soubor, 'Matice.txt');
rewrite(soubor);
for j:=1 to n do
begin
radek:=Sg.Cells[0,i-1];

for i:=1 to m do
  begin
  pomocnik:=StrToInt(sg.Cells[j-1,i-1]);
  writeln(soubor, pomocnik);
  end;
  closefile(soubor);

end;

Dal jsem zde špatný zdroják, to je rozpracováno něco jiného..

Tady je ten konkrétní:

procedure TForm1.bt_tiskClick(Sender: TObject);
var soubor:TextFile;
pomocnik:integer;
begin
Assignfile(soubor, 'Matice.txt');
rewrite(soubor);
for j:=1 to n do
for i:=1 to m do
  begin
  pomocnik:=StrToInt(sg.Cells[j-1,i-1]);
  writeln(soubor, pomocnik);
  end;
  closefile(soubor);

procedure TForm1.bt_tiskClick(Sender: TObject);
var soubor:TextFile;
pomocnik:integer;
begin
Assignfile(soubor, 'Matice.txt');
rewrite(soubor);
for i:=1 to m do begin
	for j:=1 to n do
  	begin
  	  pomocnik:=StrToInt(sg.Cells[j-1,i-1]);
  	  write(soubor, pomocnik);
  	end;
writeln;
end;
closefile(soubor);

Máš štěstí, že jsem zrovna byl na emailu, když mi přišlo sledování vlákna :D

Jen pro rozšíření, jak bych zajistil aby mezi jednotlivými čísly v řádku byly mezery ? Chtěl bych to trochu pochopit víc :-).

procedure TForm1.bt_tiskClick(Sender: TObject); {tlačítko pro tisk}
var soubor:TextFile;
matice:integer;
begin
Assignfile(soubor, 'Tisk.txt');   {vytvoří nový soubor, určen pro tisk}
rewrite(soubor);
writeln(soubor, 'Výsledná matice:');
for i:=1 to m do begin
for j:=1 to n do begin
  matice:=StrToInt(sg.Cells[j-1,i-1]);{definování co se do souboru vepíše}
  write(soubor, matice); {vepsání matice do souboru pro tisk}
  end;
      writeln(soubor, matice);
      end;
      closefile(soubor);
      end;
      end.

tohle mi funguje dobře jinak :-)

jojo já si to upravil hned jak jsem to jsem vložil :-), všiml jsem si toho.