[gamezeldol]

Здравствуйте. Наверное это не под силу новичку, но может удастся разобраться, конечно же с вашей помощью
Например есть поле Edit1. ввожу допустим имя "Василий Пупкин". Как сделать так чтобы эта информация где ниб сохранялась и при повторном запуске программы при вводе в поле Edit1 буквы "В" мне сразу же выдавалась возможность выбрать имя Василий Пупкин? Это что-то вроде поисковика Google...
Спасибо заранее

[Pyro]

простейший вариант при помощи combobox:
запоминает при нажатии enter, сохраняет в файл при закрытии формы

PHP код:

function history: string;
begin
  result := ExtractFilePath(Application.ExeName) + 'history.txt';
end;


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
    ComboBox1.Items.Add(ComboBox1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ComboBox1.Items.SaveToFile(history);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if FileExists(history) then
    ComboBox1.Items.LoadFromFile(history);
end; 


[icsander]

Чуть подробней. У Вас база данных ?
Тогда стоит использовать другие компоненты, а поиск по первым введенным символам есть у (как минимум) TListBox (св-во Complete и т.д.). Возможно не точно, но для гугления хватит.

[gamezeldol]

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

простейший вариант при помощи combobox:
запоминает при нажатии enter, сохраняет в файл при закрытии формы

PHP код:

function history: string;
begin
  result := ExtractFilePath(Application.ExeName) + 'history.txt';
end;


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
    ComboBox1.Items.Add(ComboBox1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ComboBox1.Items.SaveToFile(history);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  if FileExists(history) then
    ComboBox1.Items.LoadFromFile(history);
end; 


Спасиб. Буду пробовать.

[gamezeldol]

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

Чуть подробней. У Вас база данных ?
Тогда стоит использовать другие компоненты, а поиск по первым введенным символам есть у (как минимум) TListBox (св-во Complete и т.д.). Возможно не точно, но для гугления хватит.

Нее... У меня обычная програмка которая отправляет все что написано в Edit, в Excel для дальнейшей печати на принтере. Просто приходится иногда писать одини и те же имена, адреса и т.п. Поэтому хочу облегчить задачу Спасибо!

[gamezeldol]

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

простейший вариант при помощи combobox:
запоминает при нажатии enter, сохраняет в файл при закрытии формы
PHP код:
function history: string;
begin
result := ExtractFilePath(Application.ExeName) + 'history.txt';
end;


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
ComboBox1.Items.Add(ComboBox1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile(history);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if FileExists(history) then
ComboBox1.Items.LoadFromFile(history);
end;

Спасибо. получилось
А у Edit нет таких свойств? Или это слишком сложно?

[angvelem]

Для Edit-а нужно использовать какой-нибудь массив. Куда сохраняем введённое и берём при выборе.