Ошибка

Deathless

Помогите найти ошибку.
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13
then
ComboBox1.Items.Add(ComboBox1.Text);
if
ComboBox1.ItemIndex=-1
then
ComboBox1.Items.SaveToFile('glostext.txt');
 
ComboBox1.Text:='';
end;
Оно должно добавить , сохранить и сразу очистить строку для следующего слова.
1 ответ

Deathless

Может так:
if Key = #13
then begin
ComboBox1.Items.Add(ComboBox1.Text);
if
ComboBox1.ItemIndex=-1
then
ComboBox1.Items.SaveToFile('glostext.txt');
 
ComboBox1.Text:='';
key:=#0;
end;