Помощь с List Box Delphi

[Antyan-screammer]

объясните как сделать что бы кликая на строку в List Box что то происходило.

[Daramant]

Для этого есть события (Закладка Events в Object Inspector).
В твоем случае событие OnClick.
Пример:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ShowMessage('Click!');
end;

[zotox]

Daramant опередил ^_^

Создавай событие OnMouseDown

Один счелчек по ЛистБоксу:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ShowMessage('Это наш пример ^_^');
end;

Два счелчка после которых будет действ:

...

 private
  function Clicks(chto,nachto:integer): boolean;

...

function TForm1.Clicks(chto,nachto:integer): boolean;
begin
 if Frac(chto/nachto)<>0 then
  begin
    result:=false;
  end
 else
  begin
    result:=true;
  end;
end;


procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
i:=i+1;
if Clicks(i,2))=false then exit;
showmessage('Вы нажали два раза по листбоксу!');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=0;
end;

[Antyan-screammer]

Парни спасибо но это немного не то... дело вот в чём...
В List Box дофига строк в каждой какая то надпись... нужно что бы при нажатии на строчку, значение этой строчки помещалось в Edit.

Слова в List Box помещаются из файла...

Вот конкретно что надо.

[zotox]

Сообщение от Antyan-screammer

Парни спасибо но это немного не то... дело вот в чём...
В List Box дофига строк в каждой какая то надпись... нужно что бы при нажатии на строчку, значение этой строчки помещалось в Edit.

Слова в List Box помещаются из файла...

Вот конкретно что надо.

Код:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if ListBox1.ItemIndex=-1 then exit; 
//В случае если юзер не кликнул по елементу в листбоксе но кликнул по самому листбоксу то действ. ниже отпадают

 Edit1.Text:=ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

Код загр. из файла (не помешает :-) ):

procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin

 if FileExists('file.txt')=false then exit;

 ListBox1.Items.LoadFromFile('file.txt');
end;

Daramant да... я чет проглупил с загр. в листбокс :-D

[Daramant]

Сообщение от zotox

Код загр. из файла (не помешает :-) ):

procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin
 s:=TStringList.Create;

 if FileExists('file.txt')=false then exit;

 s.LoadFromFile('file.txt');
 for i:=0 to s.count-1 do
  begin
    ListBox1.Items.Add(s.Strings[i]);
  end;
end;

Тогда уж лучше так:

  ListBox1.Items.LoadFromFile(FileName);

Можно конечно еще проверить - существует ли файл:

  if not FileExists(FileName) then
    raise Exception.Create(Format('Файл не найдет: "%s"', [FileName]));

  ListBox1.Items.LoadFromFile(FileName);

Но исключение и так возникнет при отсутствии файла в LoadFromFile();

[Antyan-screammer]

Всё парни спасибо большое помогло

[sania5768]

«Свинья-копилка». Для того, чтобы начать свой бизнес, юный коммерсант решил накопить немного денег. С этой целью он отыскал свинью-копилку и начал собирать деньги. Известно, что определить накопленную сумму в копилке можно, только разбив копилку. Однако, юному коммерсанту не хотелось де¬лать это раньше времени, т.е. до тех пор, пока не накопилась требуемая сумма. Избежать этого ему помог его напарник, который посоветовал, как можно оценить мини¬мальное количество денег внутри копилки, зная ее вес без монет, вес с монетами и вес монет каждого типа. Требуется написать программу, которая определяла бы мини¬мальную сумму денег, которая может находиться в копилке, по известным исходным данным.
Технические требования: Входной файл: INPUT.TXT. Результат выводится на экран. Формат входных данных: Входной файл INPUT.TXT состоит из последовательноеi и строк. В первой строке содержатся два целых числа:
Е - вес пустой копилки (1<Е<10000);
F - вес копилки, заполненной монетами (1<E<F< 10000);
Вторая строка содержит целое число N (1<N<500) - количество типов монет.
Каждая из последующих N строк служит для описания монет заданных типов и со¬держит по два целых числа – PI и Wi (1< PJ <50000, 1< W, < 10000, 1< i <N), где Рi -достоинство монеты i -го типа, a Wi - ее вес.
Формат выходных данных: На экран выводится значение минимальной суммы де¬нег, которая может находиться в копилке. Если заданный вес копилки F не может быть достигнут с монетами заданного типа, то выводится сообщение «Нет решения»'.