|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#76
|
|||
|
|||
Цитата:
Не убьет. булевские переменные на самом деле азы программирования, как и integer. Ну если убъет можете использовать integer. Сперва присваивать 0, потом 1. Вот отладчик try except как раз используют профи. |
#77
|
|||
|
|||
Эх, ладно - короче объедутся пусть они этим сообщением - и без него прога работает - ат я не через переменную, не через try except не сделаю Спасибо)
|
#78
|
|||
|
|||
Цитата:
|
#79
|
|||
|
|||
описываем в самом начале программы
Код:
Var btnPres:=boolean; Код:
procedure TForm5.Button6Click(Sender: TObject); var i,j:integer; begin n:=12; m:=9; setlength(A,n,m); stringgrid1.RowCount:=n; stringgrid1.ColCount:=m; for i:=0 to n-1 do for j:=0 to m-1 do begin A[i,j]:=sin(j)/cos(j)+exp(cos(i));; stringgrid1.Cells[j,i]:=FormatFloat('0.00',A[i,j]); end; btnPres:=true; end; Код:
procedure TForm5.Button7Click(Sender: TObject); var i,j,t:integer; tmp:real; begin if btnPres = true then begin m:=stringgrid1.ColCount; k:=0; l:=8; for i:=0 to n-1 do begin tmp:=A[i,k]; A[i,k]:=A[i,l]; A[i,l]:=tmp; end; for t:=0 to n-1 do for j:=0 to m-1 do stringgrid1.Cells[j,t]:=FormatFloat('0.00',A[t,j]); end; end; |
#80
|
|||
|
|||
Спасибо, щас попробую!
|
#81
|
|||
|
|||
Цитата:
|
#82
|
|||
|
|||
Цитата:
|
#83
|
|||
|
|||
Цитата:
Код:
procedure TForm5.Button7Click(Sender: TObject); var i,j,t:integer; tmp:real; begin if btnPres = true then begin m:=stringgrid1.ColCount; k:=0; l:=8; for i:=0 to n-1 do begin tmp:=A[i,k]; A[i,k]:=A[i,l]; A[i,l]:=tmp; end; for t:=0 to n-1 do for j:=0 to m-1 do stringgrid1.Cells[j,t]:=FormatFloat('0.00',A[t,j]); end else ShowMessage('Сначала заполните матрицу'); end; |
#84
|
|||
|
|||
Боьшое спасибо! Переделаю прогу и обязательно это использую!
|
#85
|
|||
|
|||
Это снова я - на этот раз мне уже стыдно вопрос задавать... докопалась до меня преподша, что 1 строку я в Memo сохраняю - говорит в Edit сохраняй - а я не помню как... подскажите, плиз...
|
#86
|
|||
|
|||
Цитата:
что значит "сохраняешь"? Сохраняешь в файл? Тогда либо руками записать в файл, либо через TStringList. Просто выводить на экран? Тогда Edit1.Text := твои_данные_в_формате_String. |
#87
|
|||
|
|||
Цитата:
|
#88
|
|||
|
|||
Спасибо... не знаю - может я ее не так понял - ну вот например я вывожу в Memo
Memo1.Lines.Add(FormatFloat('0.00',P)); Но мне нажо это вывести не в Memo а куда-то - не помню - она говорила - ну короче типа как Memo - тока что бы там 1 строка тока была... |
#89
|
|||
|
|||
Edit1.Text:= FormatFloat('0.00',P)
|
#90
|
|||
|
|||
точно, спасибо)
|