05.02.2009, 09:47
общий
это ответ
Здравствуйте, Vlad9240!
Примерно так, смотрите приложение. Не проверял правда.
Приложение:
var
T1, T2:TTime;
i, i2, e1, e2:integer;
begin
T1:=Time;
for i:=0 to memo1.list.count-1 do
begin
e1:=strtoint(Memo1.List.Strings[i];
i2:=0;
while e1<strToInt(ListBox1.Item.strings[i2] do
begin
inc[i2];
if i2>=ListBox1.Item.Count then Break;
end;
ListBox1.Item.Insert(Memo1.List.String[i], i2);
end;
t2:=Time;
Edit1.text:=TimeToStr(T1);
Edit2.text:=TimeToStr(T2);
end;