Текущий архив: 2007.01.28;
Скачать: CL | DM;
Вниз
работа с tmemo Найти похожие ветки
← →
Marvin © (2007-01-08 14:50) [0]Привет народ, может кто пожет мне с вопросиком
пишу обработку процедуры
открываю текстовый файл в tmemo там много строк
как мне зделать так чтобы по нажатию на кнопку у меня фаил очистился от одинаковых строк (есть 3 одинаковые строки разбросаные по файлу
вот 2 из них должны быть удалены а 3-я осталась)
надеюсь на вашу помощь в решении своего вопроса
← →
Anatoly Podgoretsky © (2007-01-08 15:00) [1]> Marvin (08.01.2007 14:50:00) [0]
delete
← →
MsGuns © (2007-01-08 16:48) [2][1]+IndexOf
Но не факт что поможет
← →
Джо © (2007-01-09 05:52) [3]Начерно так, в IDE не загружал:
procedure DeleteDuplicates (Lines: TStrings);
var
I,J: Integer;
begin
for I := Lines.Count-1 downto 0 do
begin
for J := 0 to I-1 do
begin
if Lines[I] = Lines[J] then
Lines.Delete(I);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteDuplicates(Memo1.Lines);
end;
Страницы: 1 вся ветка
Текущий архив: 2007.01.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.053 c
