Появилась необходимость создавать файлы большого (до 10 ГБ) размера. Содержимое файла не имеет значения. Размер файла задается перед его созданием. Как реализовать? (читать всё…)

Есть строка ‘ghbdtn’ ее нужно преобразовать в ‘привет’ и наоборот строку ‘руддщ’ преобразовать в ‘hello’. Как реализовать? (читать всё…)

Можно ли как то заключить в файл ресурса файл программы, когда в программе уже пришитый такой файл ресурса ? (читать всё…)

Можно-ли обновить ListView не снимая выделение, или вернуть выделение каким-то образом? (читать всё…)

Marsel737

Подскажитe пожалуйста каким образом через TComponent можно обращаться, например, к ко всем лэйблам лежащим на панели?

(читать всё…)

skrudjmagdak

Как написать функцию(любую) в delphi, но написанную на assembler’е(т.е. асм код встроенный в delphi), которую потом нужно вызвать.

(читать всё…)

Как в Edit запретить вводить более одной точки? (читать всё…)

Alex Cones

Есть ли в дельфи диалог ввода строки?
Чтоб там был лейбл, эдит и кнопка «ОК»

(читать всё…)

(читать всё…)

Как удалить одинаковые строки из динамического массива в StringList?

Stilet

procedure TForm1.N3Click(Sender: TObject);

var

  isa:integer;

begin

// Создаем временную анонимную переменку

with TStringList.Create do

 begin

// Устанавливаем для нее сортировку и игнор при попытке добавить элемент, который уже есть

  Sorted := true;

  Duplicates := dupIgnore;

//Добавляем весь текст. При этом должна (не уверен) происходить проверка каждого на задвоенность.

  Text := sl.Text;

//Возвращаем назад но уже без дубликатов

  sl.Text := Text;

//Убираем анонимную переменную.

  free;

 end;

 listbox1.Clear;

 for isa:=0 to sl.Count-1 do

 listbox1.Items.insert(isa,extractfilename(sl.Strings[isa]));

 showmessage('Повторяющиеся треки были успешно удалены!');

end;

Пост написан при поддержке РостБанк.

Выгодные вклады в надежном банке по высоким процентам.

тема на форуме