Файлы Delphi

← →
Palladin © (2008-12-15 15:47) [40]

даже переписать код нормально не можешь, давай внимательней в следующий раз

и не с 1, а с 0, что за дела вообще?

← →
Tatb9na © (2008-12-15 15:50) [41]

я исправлюсь. я холосая... я уже раньше исправила. :(((

← →
Сергей М. © (2008-12-15 15:50) [42]

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

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

← →
Palladin © (2008-12-15 15:53) [43]

> 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

← →
Tatb9na © (2008-12-15 16:01) [44]

вы меня тут конечно извините. ну не получается у меня ничего. у меня ни тот ни этот код не работает. я уже все ререпробывала из вышепредложенного.

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

← →
Сергей М. © (2008-12-15 16:05) [45]

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

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

← →
Tatb9na © (2008-12-15 16:06) [46]

убиться ап стенку

← →
Tatb9na © (2008-12-15 16:07) [47]

буду дальше мучится, глядишь что-нить получится

← →
Сергей М. © (2008-12-15 16:08) [48]

Аминь.

← →
Tatb9na © (2008-12-15 16:09) [49]

;) пасиб)))за помощь....

← →
Сергей М. © (2008-12-15 16:14) [50]

> пасиб

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

← →
{RASkov} © (2008-12-15 20:00) [51]

> [19] Tatb9na © (15.12.08 14:10)

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

← →
Tatb9na © (2008-12-15 20:18) [52]

и как же быть тогда????

← →
{RASkov} © (2008-12-15 20:37) [53]

> [52] Tatb9na © (15.12.08 20:18)

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

← →
Tatb9na © (2008-12-15 21:21) [54]

Не переходит по ветке 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

> Tatb9na (15.12.2008 21:21:54) [54]

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

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

СПАСИБО!СПАСИБО!СПАСИБО!!!
целый день мучилась ведь!!!

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

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

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

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

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

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

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

while not eof(f) do

?

я не правильно выразилась. вывод предупреждающего сообщения имела ввиду.
спасибо, говорю!
Если человек счастлиВ, почему бы и не крикнуть об этом! ;)

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

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

Файлы Delphi Найти похожие ветки