|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ошибка "is not a valid integer value"
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Memo1: TMemo; Edit1: TEdit; Panel1: TPanel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var f: TextFile; fName: String[80]; buf: string[80]; begin fName := Edit1.Text; AssignFile(f, fName); {$I-} Reset(f); {$I+} if IOResult <> 0 then begin MessageDlgt 'Database connection error', mtError,[mbOK],0); // ругается вот тут. end; end; procedure TForm1.Button2Click(Sender: TObject); var f: TextFile; fName: string[80]; i: integer;begin fName := Edit1.Text; AssignFile(f, fName); Rewrite(f); // открыть для перезаписи // запись в файл for i := 0 to Memo1.Lines.Count do writeln(f, Memo1.Lines[i]); CloseFile(f); // закрыть файл MessageDlg('Данные записаны в файл ', mtlnformation, [mbOk], 0); end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; end. И ещё вот задачка, вроде как ы скомпилировалось все, все работает НО при работе выдает ошибку unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Edit1: TEdit; Memo1: TMemo; procedure Button6Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button7Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; n,i,min,max,s:integer; sr:real; a:array[1..1000]of integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin min := a[1]; for i:= 2 to n do if (min>a[i])then min := a[i]; edit1.Text:='min = '+inttostr(min); end; procedure TForm1.Button2Click(Sender: TObject); begin max := a[1]; for i:= 2 to n do if (max<a[i])then max := a[i]; edit1.Text:='max = '+inttostr(max); end; procedure TForm1.Button3Click(Sender: TObject); var p:int64; begin p:= 1; for i:= 1 to n do p:=p*a[i]; edit1.Text := intToStr(p); end; procedure TForm1.Button4Click(Sender: TObject); begin s := 0; for i:= 1 to n do s:=s+a[i]; edit1.Text := intToStr(s); end; procedure TForm1.Button5Click(Sender: TObject); begin s := 0; for i:= 1 to n do s:=s+a[i]; edit1.Text := FloatToStr(s/n); end; procedure TForm1.Button6Click(Sender: TObject); begin randomize; for i := 1 to n do begin a[i]:=random(2000)-1000; Memo1.Text:=memo1.Text+' ' + inttostr(a[i]); end; end; procedure TForm1.Button7Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Edit1Change(Sender: TObject); begin n:=strtoint(edit1.text); end; end. текст ошибки выдает когда он всё подсчитал( причем выполняет все правильно) вот ошибка "is not a valid integer value" Что эт такое? помогите исправить эти ошибки.. заранеее спасибо) Последний раз редактировалось Admin, 13.10.2011 в 10:01. |
#2
|
||||
|
||||
А ты после MessageDlg скобочку открой:
Код:
MessageDlg('Database connection error', mtError,[mbOK],0); А по второй задаче, в режиме отладки выясни где ругается и на что. Google в помощь |
#3
|
||||
|
||||
По второй:
Код:
n:=strtoint(edit1.text); Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#4
|
|||
|
|||
Ошибка
[quote=Ildar-tsr]А ты после MessageDlg скобочку открой:
Код:
MessageDlg('Database connection error', mtError,[mbOK],0); да хоть десять скобок, все равно ругается... |
#5
|
||||
|
||||
Цитата:
Да ну. Когда ругается что за ошибки выходят? Там внизу в окошке Build что написано? Google в помощь |
#6
|
|||
|
|||
Цитата:
Цитата:
|
#7
|
||||
|
||||
MessageDlgt - t на конце убери.
Google в помощь |
#8
|
|||
|
|||
Ошибка
Цитата:
Цитата:
Цитата:
|
#9
|
||||
|
||||
Меня твоя невнимательность просто убивает! Помогаю по этому вопросу и все.
Код:
//надо mtInformation //а у тебя mtlnformation //если не видишь разницы посмотри и сравни MTINFORMATION //надо MTLNFORMATION //у тебя Google в помощь |
#10
|
|||
|
|||
Ошибка
Цитата:
|