Поиск в файле

[lin]

есть у кого-нибуть код. которий би искал в тхт файле слово, когда он его найдет то б читал дальше строку и после символа "/" присваивал её переменной.

файл имеет такую структуру:

6125 /2
3698 /2
3695 /8
5469 /7
5469 /9

тоисть если поиск нашел 3695 то читает дальше и присвавивает переменной (напиример р) значение 8 (р:=8)

кто может помочь?

[Shurik Hacker]

Function After ( Src:string ; Var S:string ) : string ;
Var
F : Word ;
begin
F := POS (Src,S) ;
if F=0 then
After := ''
else
After := COPY(S,F+length(src),length(s)) ;
end ;


function Find(const S, P: string): Integer;
var
i, j: Integer;
begin
Result := 0;
if Length(P) > Length(S) then
Exit;
for i := 1 to Length(S) - Length(P) + 1 do
for j := 1 to Length(P) do
if P[j] <> S[i + j - 1] then
Break
else if j = Length(P) then
begin
Result := i;
Exit;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
p: integer;
s:string;
begin
for x:=0 to Memo1.Lines.Count-1 do
if Find(Memo1.Lines[x],'3695') <> 0 then
begin
s:=Memo1.Lines[x];
p:=StrToInt(After('/',s));
end;
end;

[lin]

Сообщение от Shurik Hacker

Function After ( Src:string ; Var S:string ) : string ;
Var
F : Word ;
begin
F := POS (Src,S) ;
if F=0 then
After := ''
else
After := COPY(S,F+length(src),length(s)) ;
end ;


function Find(const S, P: string): Integer;
var
i, j: Integer;
begin
Result := 0;
if Length(P) > Length(S) then
Exit;
for i := 1 to Length(S) - Length(P) + 1 do
for j := 1 to Length(P) do
if P[j] <> S[i + j - 1] then
Break
else if j = Length(P) then
begin
Result := i;
Exit;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
p: integer;
s:string;
begin
for x:=0 to Memo1.Lines.Count-1 do
if Find(Memo1.Lines[x],'3695') <> 0 then
begin
s:=Memo1.Lines[x];
p:=StrToInt(After('/',s));
end;
end;

А как указать с каким файлом надо работать?

[pu4koff]

Сообщение от lin

А как указать с каким файлом надо работать?

напиши перед поиском загрузку содержимого файла в мемо: memo1.LoadFromFile('Имя файла');