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

Прошу помощи ...   Найти похожие ветки 

← →
Маша   (2002-10-22 10:26) [0]

В текстовом файле нужно взять кусок строки и найти совпадения в других строках. Необходимо это сделать с первой по последнюю строку. Т.е. необходимо из каждой строки выделить определенный кусок и сравнить со всеми строками. Я написала такой код

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
stlist1:=TStringList.Create;
stlist1.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog3.Execute then
begin
AssignFile(f,OpenDialog3.FileName);
Rewrite(f);
for i:=1 to (stlist1.Count -1) do
begin
shortstr:=Copy(stlist1[i],9,145);
if Pos(shortstr,stlist1.Strings[i])<>0 then
begin
Writeln(f,stlist1.Strings[i]);
end;

end;
Но надо где-то прописать переход на следующую строку.
И вообще, Уважаемые Мастера, ход мыслей правильный?
Спасибо за помощь.

---

← →
turusov ©   (2002-10-22 10:28) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1035204822&n=0

---

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

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



Память: 0.45 MB
Время: 0.008 c