работа с ComboBox

[ms-32]

Здравствуйте! Вот текст задачи, Дан файл f, содержащий сведения о нескольких автомобилях. Найти фамилии владельцев и номера автомобилей данной марки, как с помощью ComboBox сдеать поиск по марке автомобиля.

[artemavd]

Навскидку, такой вариант:
1. Создаете этот файл f;
2. В ComboBox-е храните марки автомобилей;
3. При выборе марки автомобиля из ComboBox-a грузите из файла нужную информацию, которая соответвествует выбранной марке.

ИМНО, но я бы сделал маленькую БД и работал через запросы

[Grag]

Хорошо бы еще при этом знать спецификацию файла...

[artemavd]

Исходя из информации из поста №1, могу предположить, что структура файла такая (примерно):
Марка автомобиля|Фамилия|№ автомобиля
Honda Иванов у007ра

[Grag]

А может тип файла - запись?

record
  marka:string;
  fam:string;
  num:string
end;

[artemavd]

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

А может тип файла - запись?

А может ТС сам скажет че там у него, а, коллега?))

[ms-32]

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

begin
memo2.Clear;
if ComboBox1.Text = ComboBox1.Items[0] then
begin
for i:=0 to memo1.Lines.Count do
begin
if pos('Mitsubishi',memo1.Lines[i])<>0 then memo2.Lines.Add(memo1.Lines[i]);
end;

if ComboBox1.Text = ComboBox1.Items[1] then
begin
for i:=0 to memo1.Lines.Count do
begin
if pos('Toyota',memo1.Lines[i])<>0 then memo2.Lines.Add(memo1.Lines[i]);
end;

if ComboBox1.Text = ComboBox1.Items[2] then
begin
for i:=0 to memo1.Lines.Count do
begin
if pos('Nissan',memo1.Lines[i])<>0 then memo2.Lines.Add(memo1.Lines[i]);
end;

if ComboBox1.Text = ComboBox1.Items[3] then
begin
for i:=0 to memo1.Lines.Count do
begin
if pos('Subaru',memo1.Lines[i])<>0 then memo2.Lines.Add(memo1.Lines[i]);
end;
end;
end;
end;
end;
end;
спасибо за подсказку, теперь возникла другая проблемка.
помогите исправить ошибку. дело в том что он ищет только если выбран вариант Mitsubishi, точнее первый вариант, не получается это исправить.