Текстовой файл

[Stanislav]

Здравствуйте дорогие форумчане...
сталкнулься с такой задачей....

Есть текстовый файл: содержание следующее

10/1/2
11/1/2
12/1/2
13/1/2
14/1/2

Например 10 присвоем переменной N а то что после слэша 1 присваиваем переменой P а переменной С присваиваем 2 чтоб получилось так

N=10
P=1
C=2

Заранее благодарю...

[IgorKr]

...
var f:textfile;
s,t:string;
n,p,c:integer;
begin
assignfile(f, '<filename>');reset(f);
whlie not eof(f) do
begin
readln(f, s);
t:=copy(s,1, pos('/',s)-1);
delete(s, 1, pos('/',s));
n:=strtoint(t);
t:=copy(s,1, pos('/',s)-1);
delete(s, 1, pos('/',s));
p:=strtoint(t);
c:=strtoint(s);
end;
closefile(f);

[mihali4]

Что было просто и понятно.
Берем первую строку.

var i: integer;
begin
N:='';
P:='';
C:='';
s:='10/1/2';
i:=1;
while s[i]<>'/' do
N:=N+s[i];
Inc(i);
while s[i]<>'/' do
P:=P+s[i];
Inc(i);
while s[i]<>'/' do
C:=C+s[i];
end;

[Stanislav]

Большое спасибо... выручили