Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.029 c
2-1168404799
Steep
2007-01-10 07:53
2007.01.28
ADO + MS SQL


3-1162813086
Ольга
2006-11-06 14:38
2007.01.28
Возможности Query


1-1165102004
AndreyRu
2006-12-03 02:26
2007.01.28
Процентное отношение 2-х цветов из 3-го цвета


2-1168290903
Wind
2007-01-09 00:15
2007.01.28
Сосчитать количество дней


2-1168356392
vitv
2007-01-09 18:26
2007.01.28
FireBird1.5-не работает запрос