[GruSha1983]

Доброго времени суток!
Вопрос следующий, есть TXT файл содержащий кучу всего

Код:

ACURA	
	MDX
	NSX
	RDX
	RL
ALFA ROMEO	
	8C
	Brera
ASTON MARTIN	
	ВСЕ
AUDI	
	A1
	A2
	A3
	ALLROAD
	Q5 
ИТД

Сейча реализация очень простая, в TreeView1 загружен этот TXT и под каждое из 800 с лишним значений методом проверки подбирается значение

Код:

if Node.AbsoluteIndex=( 1 ) then begin A:= 4.40 ; B:= 1.80 ; end;
if Node.AbsoluteIndex=( 2 ) then begin A:= 6.80 ; B:= 0.40 ; end;
if Node.AbsoluteIndex=( 3 ) then begin A:= 4.70 ; B:= 1.70 ; end;
if Node.AbsoluteIndex=( 4 ) then begin A:= 6.20 ; B:= 0.50 ; end;
if Node.AbsoluteIndex=( 5 ) then begin A:= 7.00 ; B:= 0.40 ; end;
if Node.AbsoluteIndex=( 6 ) then begin A:= 5.90 ; B:= 0.50 ; end;
и так до 836 значения

Как это можно оптимизировать? Выбирается только одна Марка и соответствующая модель, после чего TreeView1.enebled:=False;

PS Я очень упорный

[Страдалецъ]

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

[GruSha1983]

Подскажите на одной строке как сделать?

[AlexSku]

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

Код:

if Node.AbsoluteIndex=( 1 ) then begin A:= 4.40 ; B:= 1.80 ; end;
if Node.AbsoluteIndex=( 2 ) then begin A:= 6.80 ; B:= 0.40 ; end;
if Node.AbsoluteIndex=( 3 ) then begin A:= 4.70 ; B:= 1.70 ; end;
if Node.AbsoluteIndex=( 4 ) then begin A:= 6.20 ; B:= 0.50 ; end;
if Node.AbsoluteIndex=( 5 ) then begin A:= 7.00 ; B:= 0.40 ; end;
if Node.AbsoluteIndex=( 6 ) then begin A:= 5.90 ; B:= 0.50 ; end;
и так до 836 значения

Как это можно оптимизировать? Выбирается только одна Марка и соответствующая модель...

Можно так:

Код:

select A,B from Table1 where (Marka = :P1) and (Model = :P2)

[GruSha1983]

то есть в Эксессе создать db и прикрутить ее к проге?

[Страдалецъ]

Создать можно в чем угодно.
Можно сделать свой типизированный файл, можно использовать класс TIniFile, а можно вообще использовать ClientDataSet и загружать данные из XML файла. Удобно, то что обращаться к такому файлу можно как таблице БД, а содержимое в текстовом виде и при некоторой практике без проблем можно изменять данные любым текстовым редактором.
Вариантов как видите много, но конечно не так как вы это сделали.
ПС: Т.е. я предполагаю, что вам нужно соединить данные из вашего текстового файла и данные из вашей программы в единую таблицу.