Anonymní profil beni017 – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil beni017 – Programujte.comAnonymní profil beni017 – Programujte.com

 

Příspěvky odeslané z IP adresy 195.91.12.–

beni017
Delphi › Jak na StringGrid
21. 7. 2014   #192306

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

beni017
Delphi › Jak na StringGrid
21. 7. 2014   #192305

#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

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032020 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý