Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.018 c
3-101147
LeS
2002-10-09 10:47
2002.10.31
Сохранить текст хранимой процедуры в txt из StoredProc


14-101459
AL2002
2002-10-10 21:28
2002.10.31
Как сохранить чат?


1-101286
Шурик Ш
2002-10-22 13:03
2002.10.31
Доступ к общим ресурсам


14-101469
Сергей Суровцев
2002-10-10 16:15
2002.10.31
Сюда, счастливчики!


7-101546
JAndrey
2002-08-21 11:34
2002.10.31
Как запрограммировать COM порт на скорость > 115200 бит/сек