|
#1
|
|||
|
|||
TMemo
Поставленая задача:
В матрице сформировать массив, состоящий из номеров строк, в которых сумма элементов меньше или равна заданной величине А. Найти минимальный элемент в этих строках и прибавить его ко всем элементам матрицы. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Label1: TLabel; Label2: TLabel; Button2: TButton; Edit1: TEdit; Label3: TLabel; summa: TMemo; NewArray: TMemo; Label4: TLabel; MinElement: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; arrMat: array[1..5,1..5] of int64; w,narr:array [1..5] of real; iusl:array [1..5] of integer; min,num:real; s:array[1..6] of int64; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ModalResult:=mrOK; Close; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.LoadFromFile('data.dan'); end; procedure TForm1.Button2Click(Sender: TObject); var i,j: integer; Summ:array [1..5] of int64; begin {ðàáîòà ñ ôîðìàìè} summa.Visible:=true; MinElement.Visible:=true; NewArray.Visible:=true; Label2.Visible:=true; Label4.Visible:=true; summa.Lines.Clear; MinElement.Lines.Clear; NewArray.Lines.Clear; num := StrToFloat(Edit1.Text); {âûâîä ñóììû âñåõ ñòðîê} begin for i:=1 to 6 do begin for j:=1 to 6 do Inc(Summ[i],arrMat[i,j]); summa.Lines.Strings[i]:= summa.Lines.Strings[i] + ' ' + floattostr(summ[i]); end; end; end; end. но почему-то сумма всех строк упорно не хочет выводится на экран...то есть поле TMemo пустое после нажатия на клавишу....помогите плз) |
#2
|
||||
|
||||
если я ничё не путаю то попробуй не summa.Lines.Strings[i] а summa.Lines[i]
|
#3
|
|||
|
|||
не,один фиг((
|