File

← →
Lam (2003-10-10 18:11) [0]

Люди добрые....помогите...все самые лучше...вы классные программисты....вы вообще прикольные пацаны...плз..еще раз плз....помогите а то я сумма сойду

assignfile(f2,"System.ini");
Reset(F2);
while not eof(F2) do //тут выдает ошибку
begin
readln(F2, ss);
k:=pos("ping=",ss);
if k>0 then
begin
ss2:=copy(ss,k,length(ss));
label6.Caption:=ss2;
end;

что нет так я сделал????????
до этого делал все ок а тут блин (сходит сумма)

← →
Skier (2003-10-10 18:15) [1]

>Lam (10.10.03 18:11)
Это называется "через ж..у на коньки"
Для работы с ini-файлами есть класс TIniFile

← →
Юрий Федоров (2003-10-10 18:16) [2]

настаящии чиста-прикольные пацаны юзают TIniFile для такой фичи

← →
Lam (2003-10-10 18:16) [3]

ааааа погоди я попробую тхт сделать

← →
Lam (2003-10-10 18:17) [4]

люди добрые я поменял на txt такая же ошибка

← →
clickmaker (2003-10-10 18:18) [5]

> Lam (10.10.03 18:16) [3]

Сделай лучше doc. txt это уже типа не круто

← →
Skier (2003-10-10 18:21) [6]

>Lam (10.10.03 18:17) [4]
Иди поспи !

← →
JS (2003-10-10 18:25) [7]

Какого типа у тебя переменная F2.
Может ты F2 объявил как text а не textfile?

← →
Lam (2003-10-10 18:33) [8]

> JS (10.10.03 18:25) [7]

нет я обьявил ее как f2:textFile....
теперь лично скинеру не хочешь помогать не помогай только ничего не пиши плз...

← →
Юрий Федоров (2003-10-10 18:36) [9]

>>Lam (10.10.03 18:16) [3]
Ты зачем спрашиваешь, если не читаешь ответов ?

← →
Lam (2003-10-10 18:41) [10]

Юрий Федоров почему я почитал ответы ...я сделал txt вот:
assignfile(f2,"System.txt");
Reset(F2);
while not eof(F2) do//если убрать эту строчку то все ок но она мне нужна...;)
begin
readln(F2, ss);
k:=pos("ping=",ss);
if k>0 then
begin
ss2:=copy(ss,k,length(ss));
label6.Caption:=ss2;
end;

← →
Юрий Федоров (2003-10-10 18:45) [11]

>>Lam (10.10.03 18:41) [10]
см. ответы [1], [2]

← →
Lam (2003-10-10 18:49) [12]

увожаемые мастрела ....я бы все таки хотел разобраться в txt а потом уже с ini

← →
Владислав (2003-10-10 18:58) [13]

Прикольные пацаны, ну вы чё, в натуре? Не можете реальному пацану подсказать как все реально юзать надо?! Ну вы в натуре...

:)))

Чё, в падлу пацану сказать, что реальные перцы пишут TIniFile в редакторе, а потом делают распальцовку на F1? Да вы, в натуре, не по пацпнячьм понятиям живете!

:)))

← →
Владислав (2003-10-10 19:01) [14]

А тебе какая ошибка то выдается? Случаем не AV? А может говорит: "Пацан, ты чё от меня хочешь, в натуре?" ;)

← →
Юрий Федоров (2003-10-10 19:06) [15]

1. какая ошибка выдается?
2. на каком проходе цикла (первом или нет)
3. существует ли файл на диске? (проверь FileExists)

← →
Владислав (2003-10-10 19:20) [16]

> Юрий Федоров © (10.10.03 19:06) [15]

Либо уже спит, либо не в коня корм...

← →
Anatoly Podgoretsky (2003-10-10 21:56) [17]

Нет думает кого следующего послать.

← →
Magical (2003-10-10 22:24) [18]

Вообщето в основном всегда делается
repeat
....
until not(eof(f2));

← →
Anatoly Podgoretsky (2003-10-10 22:29) [19]

Magical (10.10.03 22:24) [18]
Серьезное ошибка, грозит исключение

← →
Zacho (2003-10-10 22:30) [20]

Вообще-то, сначало читают help... Кстати, там и примеры есть ...

← →
wl (2003-10-10 22:37) [21]

toall: приколы приколами, но может поможем пацану?

← →
Zacho (2003-10-10 22:44) [22]

А может, он приведет полный код ? Например, декларацию f2 и текст сообщения об ошибке ?
Или все-таки документацию почитает ?

← →
wl (2003-10-10 22:47) [23]

ждёмс....

← →
Anatoly Podgoretsky (2003-10-10 22:48) [24]

← →
Mihey (2003-10-10 23:03) [25]

Вот стандартный пример из Delphi, работающий. Он максимально подходит к ситуации. Попробуй подстроить его к своим целям - должно сработать:

var

F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;

File Найти похожие ветки