Anonymní profil beni017 – Programujte.com

#19 beni017
nejde to posledne z premennymi x1 a x2...

#18 Sniper
 

procedure TForm3.Panel10Click(Sender: TObject);
var
  data        : TextFile;
  zap          : TStringDynArray;
  splitedString: String;
  columnNumber  : Integer;
  K : Integer;
  L,p,r,w,q : Integer;
  x11,x1,x2,x3,x4:integer;
begin
  AssignFile(data,'zapisnik.txt');
  Reset(data); // otvorenie súboru
  K := 0;
  while not (Eof(data)) do    //prečíta súbor do konca
  begin
    Readln(data,splitedString);  // prečíta a rozdeli
    zap := SplitString(splitedString,' '); //stĺpce delené medzerov
    L := 0;
    columnNumber := Length(zap); //počet stĺpcov
    for L := 0 to columnNumber-1 do
    begin
      self.StringGrid2.Cells[L,K] := zap[L]; //uloženie do tabuľkového editoru
      stringgrid2.RowCount:=K+1; //počet riadkov
    end;
    Inc(K); //načíta riadky
  end;
  CloseFile(data);
  r:=0;
  w:=L;
  for p:=0 to r do //stlpec
  for q:=0 to w do  //riadok
  Begin
  x1:=strtoint(stringgrid2.cells[0,q]);
  x2:=strtoint(stringgrid2.cells[1,q]);
  x3:=strtoint(stringgrid2.cells[2,q]);
  x4:=strtoint(stringgrid2.cells[3,q]);
  x11:=x1+x2;
  listbox1.Items.Add(inttostr(x11));

  End;
end;

takto neako to mam problem je v podtrzenom