[lubcha]

Я совсем новичок, помогите (я просмотрел много чего, прежде чем соваться)... Все тоже сохранение, хочу использовать SaveToFile, но ничего не получается, разные события перепробовал...Load работает, Save - нет.

[roamer]

Вот этот код работает :

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ComboBox1.Items.SaveToFile('C:\!_MyFile_999.txt');
end;

Но это МЕТОД, а не событие ...

[lubcha]

У меня не работает :-) Под событием я имел ввиду, что и к кнопке привязывал Save и к событиям формы и бокса...ни фига...

[TOJluK]

Ну показывай как ты там пробовал.

[lubcha]

Как написано выше, через ButtonClik, файл создается, ин-фы в нем нет...Через события ComboBoxа пробовал тоже самое, нашел на исходниках.ru ответ сегодня.....процедура не позволяет также вводить дублированные значения...

Код:

Var
  Index:Integer;
Begin
  Index:=ComboBox1.Items.Count-1;
  While (Index>=0) And (ComboBox1.Text<>ComboBox1.Items[Index]) Do
    Dec(Index);
  // или Index:=ComboBox1.Items.IndexOf(ComboBox1.Text);
  If Index=-1
  Then
    ComboBox1.Items.Append( ComboBox1.Text);
    ComboBox1.Items.SaveToFile('Name.txt');
end;

Всем спасибо!!!!!


Мы,таки, начнем соблюдать правила....

[Aristarh Dark]

lubcha, то что ты представил - даже не скомпилируется... Сорри, никто не сможет небе помоч (написать за тебя)

PS: Ставлю СТРОГОЕ!!!