Текущий архив: 2002.10.31;
Скачать: 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 вся ветка
Текущий архив: 2002.10.31;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.009 c
