Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Файлы Delphi [XP]

Страницы: 1 2 3 >
Tatb9na © (2008-12-15 01:06:00)
добрый вечер!
помогите начинающему!
ниже задание (все сделано), осталось реалтзовать проверку при открытие файла на нходящиеся в нем данные. типа данные д.б. только числовые и также при сохранении.
Приложение должно выводить на экран значения всех компонентов выбранного пользователем файла, а также вычислять и выводить на экран одну из следующих характеристик:
• количество чисел в файле;
• среднее арифметическое этих чисел;
• количество положительных чисел;
• количество четных чисел;
• максимальное значение.
Выбор файла должен осуществляться с помощью стандартного окна диалога.
Выбор характеристики должен осуществляться с помощью списка.

Сергей М. (2008-12-16 12:20:00) [1]

> вывод предупреждающего сообщения имела ввиду

Сразу после открытия файла (Reset) вызови тот же самый Eof, по результату ветви свой алгоритм нужным образом.

Tatb9na (2008-12-16 12:06:00) [2]
я не правильно выразилась. вывод предупреждающего сообщения имела ввиду.
спасибо, говорю!
Если человек счастлиВ, почему бы и не крикнуть об этом! ;)

Сергей М. (2008-12-16 08:24:00) [3]

> СССПППППАААААССССССССССИИИИИИИИИИБОООООО!
>

И незачем так орать.

> логично сделать проверку на то пусто в файле или нет

А это что, по-твоему

while not eof(f) do

?

Tatb9na (2008-12-15 21:49:00) [4]
СПАСИБО!СПАСИБО!СПАСИБО!!!
целый день мучилась ведь!!!

Ну мне очень интересно почему не сработала ошибка EConvertError???

Теперь наеврн логично сделать проверку на то пусто в файле или нет....

СССПППППАААААССССССССССИИИИИИИИИИБОООООО!

Anatoly Podgoretsky (2008-12-15 21:39:00) [5]

> except
> showmessage('не корректно!');
> exit;
> end;

Anatoly Podgoretsky (2008-12-15 21:36:00) [6]
> Tatb9na (15.12.2008 21:21:54) [54]

except on EConvertError do begin showmessage('не корректно!'); exit; end;

Tatb9na (2008-12-15 21:21:00) [7]
Не переходит по ветке except.
Правда если данные не корректы ошибку дает: типа не тот формат!

while not eof(f) do
try
begin
read(f,id);
ir[i]:=id;
inc(i);
end;//от begin

except on EConvertError do
begin
showmessage('не корректно!');
exit;

end; //от try

{RASkov} (2008-12-15 20:37:00) [8]
> [52] Tatb9na © (15.12.08 20:18)

Как на счет [42], Точнее [31]?

Tatb9na (2008-12-15 20:18:00) [9]
и как же быть тогда????

{RASkov} (2008-12-15 20:00:00) [10]
> [19] Tatb9na © (15.12.08 14:10)

Пробелы между цифр - тоже "плохие символы" и перевод каретки тоже, а read(f, ss); читает за раз всю строку....

Сергей М. (2008-12-15 16:14:00) [11]

> пасиб

Не за что. Носи не стаптывай.

Tatb9na (2008-12-15 16:09:00) [12]
;) пасиб)))за помощь....

Сергей М. (2008-12-15 16:08:00) [13]
Аминь.

Tatb9na (2008-12-15 16:07:00) [14]
буду дальше мучится, глядишь что-нить получится

Tatb9na (2008-12-15 16:06:00) [15]
убиться ап стенку

Сергей М. (2008-12-15 16:05:00) [16]

> не получается у меня ничего

И каковы твои дальнейшие предложения ?

Tatb9na (2008-12-15 16:01:00) [17]
вы меня тут конечно извините. ну не получается у меня ничего. у меня ни тот ни этот код не работает. я уже все ререпробывала из вышепредложенного.

и эта фигня выше у меня в комментах стоит

Palladin (2008-12-15 15:53:00) [18]

> Tatb9na © (15.12.08 15:50) [41]

это все понятно, что в ss находится?

да и что тут за фигня?

> reset(f); trywhile not eof(f) do    begin
> read(f,sss); // showmessage(sss);
>    id:=strtoint(sss); ir[i]:
> =id; inc(id);//if TryStrToInt(sss, id) then begin //ir[i]
> := id; end//else except on Exception
> : EConvertError do begin
> showmessage('Íå êîððåêòíûé ôàéë!'); exit;
>    end; end; CloseFile(f);
>   }

тебе Сергей рабочий код привел, а ты все пляшешь со своим бубном вокруг strtoint

Сергей М. (2008-12-15 15:50:00) [19]

> Tatb9na © (15.12.08 15:44) [38]

Ты вообще в код в [31] вникло ?
Подчеркнутое там видишь ?

Tatb9na (2008-12-15 15:50:00) [20]
я исправлюсь. я холосая... я уже раньше исправила. :(((

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »