помогитe с кодом [Delphi]

[Ghennadiy]

Привет! прошу помочь написать кусечек кода:

есть текстовый файл который нужно открыть и удалить в каждой строке все что будет найдено после третьего знака "/"

[grafgrial]

у меня почти похожая тема была http://www.programmersforum.ru/showthread.php?t=121066

[Stilet]

var s:TStringList;i:integer;
begin
 s:=TStringList.Create;
 s.LoadFrimFile('Файл');
 for i:=0 to s.count-1 do begin
  Тут ищи позицию третьего / и 
  s[i]:=copy(s[i],1,ПозицияТретьегоСлэша);
 end;
 s.SaveToFile('Файл');
 s.Free;
end.

Смысл понятен?

[Ghennadiy]

кажеться понятен, буду пробовать - Спасибо!

[Ghennadiy]

procedure TForm1.Button5Click(Sender: TObject);
var
s:TStringList;
i:integer;
begin
s:=TStringList.Create;
s.LoadFromFile(label11.caption);
for i:=0 to s.count-1 do begin
while pos('\',text)> 0 do
s[i]:=delete(s[i],3,(pos('\',text)));
end;
s.SaveToFile(label11.caption);
s.Free;
end;


вот, я не совсем понимаю как это работает
пишет ошибку

[Ghennadiy]

поможете написать правильно?

[NervniiJ]

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

поможете написать?

procedure TForm1.Button1Click(Sender: TObject);
var
s:TStringList;
i, d, p:integer;
text, dtext : string;
begin
s:=TStringList.Create;
s.LoadFromFile(label11.caption);

for i:=0 to s.count-1 do
begin
  text := s[i];
  d := 0;
  dtext := '';
  while true do begin
    p := pos('\',text);
    if (d >= 3) or (p <= 0) then Break;
    dtext := dtext + copy(text, 0, p);
    delete(text, 1, p);
    Inc(d);
  end;
  if d = 3 then s[i] := dtext else s[i] := text;
end;

s.SaveToFile(label11.caption);
s.Free;
end;

[Ghennadiy]

NervniiJ мегаспасибо!!! все работает, если слэш в обратную сторону то вытерается вся строка, а так все класс, спасибо!!!!!!!!!!!!