Прошу помощи ...
Маша © (2002-10-22 10:26:00)
В текстовом файле нужно взять кусок строки и найти совпадения
в других строках. Необходимо это сделать с первой по последнюю
строку. Т.е. необходимо из каждой строки выделить определенный
кусок и сравнить со всеми строками. Я написала такой код
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:00) [1]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1035204822&n=0
Наверх 
ЧАТ |
Орешник |
|
