Скачать: CL | DM;

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

← →
Lam   (2003-10-10 12:02) [0]

помогите люди добрые
assign(f,"servers.txt");
row:=1;
while not eof(F) do begin -здесь выдает ошибку...:((( почему??
readln(F, s);
i:=pos(s,"$"); col:=1;
while i>0 do begin
pole:=copy(s,1,i-1);
form1.Tb.Cells[row,col]:=Pole;
delete(s,1,i-1);
i:=pos(s,"$");
inc(col);
end;
inc(row);
end;

---

← →
Lam   (2003-10-10 12:14) [1]

нико не подскажет?

---

← →
Johnmen ©   (2003-10-10 12:16) [2]

AssignFile

---

← →
ORMADA ©   (2003-10-10 12:16) [3]

пииипл пиши RESET(f);
а в конце закрой closefile(f);

---

← →
ORMADA ©   (2003-10-10 12:18) [4]

и AssignFile from Johnmen © добавь

---

← →
Lam   (2003-10-10 12:40) [5]

спасибо большое что вы ответили я сделал как вы сказали

begin
assignfile(f,"c:\Servers.txt");
row:=1;
Reset(F);

while not eof(F) do
begin
readln(F, s);
i:=pos(s,"$"); //тут i все время равно 0 хотя такой символ в файле есть
col:=1;
while i>0 do begin
pole:=copy(s,1,i-1);
form1.label1.Caption:="lol";
form1.Tb.Cells[row,col]:=Pole;
delete(s,1,i-1);
i:=pos(s,"$");
inc(col);
end;
inc(row);
end;

почему i=0 ?????????????
closefile(f);
end;

---

← →
Lam   (2003-10-10 12:45) [6]

ормада! не покидай меня!...;)

---

← →
Lam   (2003-10-10 12:48) [7]

:))))))))))))))) пока ждал ответа сам додумался...
так вот pos("$",s) надо было писать...все спасибо!..;)

---

← →
ORMADA ©   (2003-10-10 12:53) [8]

вот видишь Lam стоит подумать и всё будет ок!!

---

← →
Lam   (2003-10-10 12:53) [9]

;)

---

← →
Плохиш_   (2003-10-10 12:54) [10]

>Lam (10.10.03 12:48) [7]

ой какой молодец :-), подумал!
Все бы так :-)
F1 - рулез форева

---

← →
ORMADA ©   (2003-10-10 12:55) [11]

RTFM read the fucking manual

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c