Составить программу, которая создает и выводит на экран файл.

@An_STEEL · Регистрация: 25.05.2009

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста сделать задачу, которая заключается в следующем ->
Составить программу, которая создает и выводит на экран файл ZARPL.DAT, компоненты которого имеют следующую структуру
-Табельный номер
-ФИО
-Сумма зарплаты
Выход из ввода, табельный номер=999.Выведите на экран табельные номера, ФИО и зарплату только тех, у кого зарплата превышает 100000.00 руб. Используйте оператор with

Вот код этой программы ->

Delphi

procedure TForm1.Button3Click(Sender: TObject);
begin
  AssignFile(dat,DATNAME);
   {$I-}
    Append(dat);
    {$I+}
     if IOResult<>0 then
      begin
       buttonSelected := MessageDlg('Файл не был найден.'+#13+'Создать новый?',mtError, mbOKCancel, 0);
        if buttonSelected = mrOK then
         begin
          AssignFile(dat,DATNAME);
           {$I-}
           Rewrite(dat);
           {$I+}
            if IOResult<>0 then
             begin
              ShowMessage('Ошибка! Вот ее код: '+IntToStr(GetLastError));
              button4.Enabled:=false;
              button5.Enabled:=false;
              exit;
             end;
            end;
           end;
 if StrToInt(edit3.text)<999 then
  if IOResult=0 then
  begin
   button4.Enabled:=True;
   button5.Enabled:=True;
   writeln(dat,edit3.text);
   writeln(dat,edit4.text);
   writeln(dat,edit5.text);
  end;
 if StrToInt(edit3.text)>=999 then
  begin
   ShowMessage('Такого табельного номера нет!');
  end;
 CloseFile(dat);
end;
 
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9',#46,#8]) then Key := #0;
end;
 
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['а'..'я','А'..'Я',#46,#8,#32]) then Key := #0;
end;
 
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#46,#8]) then Key := #0;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
 AssignFile(dat,DATNAME);
   {$I-}
    Reset(dat);
     {$I+}
      if IOResult<>0 then
       begin
        MessageDlg('Ошибка доступа к файлу',mtError,[mbOk],0);
       end;
        if IOResult=0 then
       begin
      while not EOF(dat) do
       begin
        for q:=0 to 999 do
         begin
          readln(dat,ch1[q]);
         end;
        end;
       end;
        if IOResult=0 then
         begin
          for m:=0 to 999 do
           begin
           f:=f+1;
            if f=3 then
             begin
             f:=0;
              if (StrToInt(ch1[m])>100000) and (ch1[m]<>'') then
                begin
                 Memo1.Lines.Add(ch1[m-2]);
                 Memo1.Lines.Add(ch1[m-1]);
                 Memo1.Lines.Add(ch1[m]);
                end;
              end;
           end;
        end;
 CLoseFile(dat);
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
 if DeleteFile(DATNAME) then
  begin
   ShowMessage('Файл успешно удален!');
   button4.Enabled:=false;
   button5.Enabled:=false;
  end;
end;
 
end.

вроде как все считает и выводит в Memo1, но пишет ошибку
is not valid integer value
Заранее спасибо!!

@Zabiyak · 26.05.2009, 13:55

В какой строке вызывается ошибка? Какие данные при этом вводили? Давайте больше информации, тут ведь не колдуны сидят

@Nicky_ · 26.05.2009, 14:28

скорее всего, ошибка в строке 84!
вот тут: StrToInt(ch1[m]) , вы уверены, что ch1[m] - есть число? думаю нет, так как следующая запись идет ch1[m]<>''

@Zabiyak · 26.05.2009, 15:58

Да нет, там всё правильно. Хотя может среди введённых значений зарплаты есть не целое число? И вообще ch1[] лучше сделать вещественным, а не целым, раз это зарплата...

@An_STEEL · 30.05.2009, 10:38 **[ТС]**

Данные были таковы

Delphi

const
  DATNAME='C:\ZARPL.dat';
 var
  dat:TextFile;
  buttonSelected, q,m: Integer;
  ch1: array [0..999] of string;
  ch3: string;
  f,h: real;

@Zabiyak · 30.05.2009, 22:39

"Данные" - это содержимое вашего файла .DAT, а не список переменных... Если где-то зарплата не целая, то этот (StrToInt(ch1[m])) оператор не пройдёт.

@xdbit · 30.05.2009, 23:03

на сколько я понял
при вот этом

Delphi

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9',#46,#8]) then Key := #0;
end;

ввести зарплату можно тока целым числом?

@Delphin_KKC · 30.05.2009, 23:34

может ошибка происходит тут:

Delphi

1	if (StrToInt(ch1[m])>100000) and (ch1[m]<>'') then

Но причина в том, что записей меньше 1000. Кстати, в сообщении об ошибке две одинарные кавычки перед is not... ? Пустая строка вызывает ошибку в StrToInt.
Сорри, ноут уже пищит что акум сел. Переделанный код не успею выложить.

@An_STEEL · 31.05.2009, 10:34 **[ТС]**

Да, там в ошибке пишет ->
"is not valid integer value

@Delphin_KKC · 31.05.2009, 13:41

Сообщение от xdbit

на сколько я понял
при вот этом

Delphi

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9',#46,#8]) then Key := #0;
end;

ввести зарплату можно тока целым числом?

необязательно. #46 - это код точки.
Хотя, имхо, лучше сделать так:

Delphi

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9',',','.',#8]) then 
  begin
  Key := #0;
  beep;
  end else
   if Key in [',','.'] then Key:=DecimalSeparator;
end;

DecimalSeparator - константа из SysUtils, значение которой зависит от региональных настроек в виндовсе и представляет собой разделитель целых и дробных частей.
С этой поправкой программа всегда будет корректно обрабатывать ввод числа, даж если юзер ступит и забудет язык переключить при вводе числа на цифровой клаве (со мной такое часто

), а если введёт что-то совсем недопустимое - то возмутится биканьем.
При желании ещё можно добавить проверку на количество запятых и запрещать попытки поставить больше одной.

@An_STEEL · 31.05.2009, 14:37 **[ТС]**

А как сделать
остановку чтения файла до того как он начнет считывать пустые строки?

@Delphin_KKC · 31.05.2009, 14:48

А есть в этом смысл? А что если после пустой строки будет идти строка с нужным значением?
Лучше заменить это:

Delphi

if (StrToInt(ch1[m])>100000) and (ch1[m]<>'') then
 begin
 Memo1.Lines.Add(ch1[m-2]);
 Memo1.Lines.Add(ch1[m-1]);
 Memo1.Lines.Add(ch1[m]);
 end;

На это:

Delphi

if ch1[m]<>'' then
 if StrToInt(ch1[m])>100000 then
  begin
  Memo1.Lines.Add(ch1[m-2]);
  Memo1.Lines.Add(ch1[m-1]);
  Memo1.Lines.Add(ch1[m]);
  end;

@An_STEEL · 31.05.2009, 15:32 **[ТС]**

А как отладить считывание?
при чтении файла возникает ошибка
когда ch1[m] попадает на строку с буквами

@Delphin_KKC · 31.05.2009, 16:00

Тогда можно где-то повыше в программе описать функцию, которая будет проверять является ли данная строка числом. Например так:

Delphi

function IsStrNum(data:string):boolean;
var
 i:integer;
begin
result:=data<>'';
for i:=1 to length(data) do
 if not data[i] in ['0'..'9',',','.'] then
  begin
  result:=false;
  break;
  end;
end;

А затем изменить многострадальный кусок кода на такой:

Delphi

if IsStrNum(ch1[m]) then
 if StrToInt(ch1[m])>100000 then
  begin
  Memo1.Lines.Add(ch1[m-2]);
  Memo1.Lines.Add(ch1[m-1]);
  Memo1.Lines.Add(ch1[m]);
  end;

Добавлено через 5 минут 3 секунды
Кроме того, IOResult возвращает то, что от неё ожидают только один раз:

...A call to IOResult clears its internal error flag....

Потому, например вот в этом коде:

Delphi

if IOResult <> 0 then
 begin
 MessageDlg('Ошибка доступа к файлу',mtError,[mbOk],0);
 end;
if IOResult=0 then

последнее условие будет всегда истинным.

@An_STEEL 0 / 0 / 0 Регистрация: 25.05.2009 Сообщений: 11
	31.05.2009, 14:37 [ТС]	11
	А как сделать остановку чтения файла до того как он начнет считывать пустые строки? 0

@Zabiyak КотЪ 219 / 219 / 60 Регистрация: 26.05.2009 Сообщений: 688
	26.05.2009, 13:55	2
	В какой строке вызывается ошибка? Какие данные при этом вводили? Давайте больше информации, тут ведь не колдуны сидят 0

@Nicky_ 11 / 11 / 0 Регистрация: 09.04.2009 Сообщений: 65
	26.05.2009, 14:28	3
	скорее всего, ошибка в строке 84! вот тут: StrToInt(ch1[m]) , вы уверены, что ch1[m] - есть число? думаю нет, так как следующая запись идет ch1[m]<>'' 0

@Zabiyak КотЪ 219 / 219 / 60 Регистрация: 26.05.2009 Сообщений: 688
	26.05.2009, 15:58	4
	Да нет, там всё правильно. Хотя может среди введённых значений зарплаты есть не целое число? И вообще ch1[] лучше сделать вещественным, а не целым, раз это зарплата... 0

@Zabiyak КотЪ 219 / 219 / 60 Регистрация: 26.05.2009 Сообщений: 688
	30.05.2009, 22:39	6
	"Данные" - это содержимое вашего файла .DAT, а не список переменных... Если где-то зарплата не целая, то этот (StrToInt(ch1[m])) оператор не пройдёт. 1

@An_STEEL 0 / 0 / 0 Регистрация: 25.05.2009 Сообщений: 11
	31.05.2009, 10:34 [ТС]	9
	Да, там в ошибке пишет -> "is not valid integer value 0

@An_STEEL 0 / 0 / 0 Регистрация: 25.05.2009 Сообщений: 11
	31.05.2009, 15:32 [ТС]	13
	А как отладить считывание? при чтении файла возникает ошибка когда ch1[m] попадает на строку с буквами 0