Alex Cones

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

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

У меня возникла проблемка при создании сайта. Есть бд с фильмами. Возникла такая проблеиъма что нужно выводить фильмы по нескольким жанрам На данный момент при ножатии Боевики выводятся все фильмы в поле cat стоит 1 но фильм может относиться к нескольким жанрам Не знаю как реализовать. (читать всё…)

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

Как удалить одинаковые строки из динамического массива в 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;

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

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

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

Возникла необходимости отправлять большие запросы типа UPDATE tablename SET photo1=»содержание_фото» WHERE id=»5″. При выполнении такого запроса выскакивает ошибка: «Got a packet bigger than ‘max_allowed_packet’ bytes». Как решить проблему? (читать всё…)

Как нарисовать рамку для Image по нажатию на Image? (читать всё…)

Как сделать несколько условий в такой выборке: (читать всё…)

Как определить количество строк в текстовом файле? (читать всё…)

Помогите, пожалуйста. Как правильно написать этот код? Чтобы выводилась таблица со значениями из базы данных? У меня таблица вот так отображается, в одну строку: 0 * 12,39 0 Итого к оплате 0 0 0 0 0 0
Совсем не корректно. (читать всё…)

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