Файл в Лист боксе

[Temka]

вот у меня есть текстовой файл, в нем написано английское слово, знак "=" и перевод на русском.
как мне загрузить в листбокс только английские слова, и при нажатии на любое слово перевод выводился в Эдит.

[Neeter]

При создании формы:

procedure TForm2.FormCreate(Sender: TObject);
var
 t: TextFile;
 str: string;
begin
 AssignFile(t, 'D:\Words.txt');
 try
  Reset(t);
  while not EOF(t) do
  begin
   Readln(t, str);
   Delete(str, Pos('=', str), Length(str));
   ListBox1.Items.Add(str);
  end;
 finally
  CloseFile(t);
 end;
end;

При событии ListBox'а onClick:

procedure TForm2.ListBox1Click(Sender: TObject);
var
 t: TextFile;
 strEng, strRu: string;
begin
 if ListBox1.ItemIndex <> -1 then
 begin
  AssignFile(t, 'D:\Words.txt');
  try
   Reset(t);
   while not EOF(t) do
   begin
    Readln(t, strEng);
    strRu := strEng;
    Delete(strEng, Pos('=', strEng), Length(strEng));
    if strEng = ListBox1.Items[ListBox1.ItemIndex] then
    begin
     Delete(strRu, 1, Pos('=', strRu));
     Edit1.Text := strRu;
     Break;
    end;
   end;
  finally
   CloseFile(t);
  end;
 end;
end;

[_SERGEYX_]

А зачем? Просто дописать в текстовый файл имя секции, например, [Words]
И далее грузим в листбокс...

  var ini: TINIFile;
begin
   ini := TIniFile.Create('D:\Words.txt');
ini.ReadSection('Words',ListBox1.Items);
ini.free;
end;

а при клике на слове

var ini: TINIFile;
begin
ini := TIniFile.Create('D:\Words.txt');
edit.Text := ini.ReadString('Words',ListBox1.Ite ms[ListBox1.ItemIndex],'');
ini.free
end;

Работать будет быстрее...

[Neeter]

Можно так, но Temka просил просто в текстовом файле.
Пусть сам и решает. Если Temka новичек, то мой код будет поучительнее, хотя я бы сам пользовался предложенным _SERGEYX_

[Temka]

Спасибо большое обоим.
но у меня возник еще вопрос.

а как сделать сортировку по этому листбоксу. Т.Е. при введении в Эдит буквы, в листбоксе строка переходила прямо на эту строку где есть эта буква первая.
допустим как в Предметных указателях в файлах-справках

[Neeter]

Вот, при onChange Edit'а поиска:

procedure TForm2.Edit2Change(Sender: TObject);
var
 i, j: integer;
 str: string;
 br: boolean;
begin
 if ListBox1.Items.Count <> 0 then
  begin
  str := Edit2.Text;
  ListBox1.ItemIndex := 0;
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
   for j := 0 to Length(str) - 1 do
    if ListBox1.Items[ListBox1.ItemIndex][j + 1] = str[j + 1] then
    begin
     br := true;
    end
    else 
    begin
     br := false;
     Break;
    end;
   if br then
   begin
    ListBox1.ItemIndex := i;
    Break;
   end
   else ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
  end;
 end;
end;

[Temka]

при этом коде он переходит на слово, на котором есть эта первая буква, а когда я нажимаю на вторую букву, то оно переходит уже на другое слово.

мне желательно чтобы когда вписываешь букву h слова переходили на те у которых первая букву h, потом при нажатии на о он шел дальше и останавливался там где есть ho и так далее пока не найдет house допустим

[Neeter]

А вы проверили это?
Я специально так и сделал, как вам нужно.
Просто у меня все работает.

[Temka]

проверил, все правильно. но просто когда я букву ввожу он со скоростью прокручивает все строки и находит слово, но это очень долго.
можно ли сделать чтоб сразу переходило на эту строку быстрей или нет?

[mihali4]

Переходите на БД - там поиск осуществляется на порядки быстрее плюс ваш словарь будет иметь практически неограниченный объем.