Главная страница
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.055 c
1-101315
pirat
2002-10-18 17:42
2002.10.31
Рисование линий уровня функции.У кого какие идеи?


4-101584
Super
2002-09-19 22:51
2002.10.31
Application.Handle других процессов


14-101478
Николай Быков
2002-10-11 14:38
2002.10.31
Рекурсия


3-101163
nikolo
2002-10-11 12:20
2002.10.31
Как вычесть из запроса те строки, которые есть в другой таблице?


1-101252
asdfghqwert
2002-10-21 16:13
2002.10.31
Как сделать фон (битмап) в listbox и на Button?