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 - рулез форева

RTFM read the fucking manual

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