Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.08.2012, 11:25   #1
Mikayilov
Новичок
Джуниор
 
Регистрация: 04.08.2012
Сообщений: 2
Восклицание Запись в Memo значения в зависимости от выбора в ComboBox

combobox1 содержится Страны.Мне нужна что бы при выборы однои страни в combobox1 появлаятся соответствующий город и написальса мему 2.Если я выбираю в cоmbobox1 Роcсию в мему2 должна появляться Москва.
написал такой код но он не работает....
Код:

var l:textfile;
st,d,a,b:string;
begin
assignfile(l,'C:\Users\anubis\Desktop\baza\Win32\Debug\countries.txt');
reset(l);


while not eof (l) do
begin

readln(l,st);
end;


a:=copy (combobox1.text,1,5) ;

b:= copy(memo2.text ,5,10);


if a = b then   memo2.lines.add(st)

end;


procedure TForm1.FormActivate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\Users\anubis\Desktop\baza\Win32\Debug\countries.txt');
combobox1.Items.LoadFromFile('C:\Users\anubis\Desktop\baza\Win32\Debug\countries.txt');

Последний раз редактировалось Stilet; 05.08.2012 в 19:03.
Mikayilov вне форума Ответить с цитированием
Старый 04.08.2012, 21:15   #2
astecenko
Homo Interneticus
Форумчанин
 
Аватар для astecenko
 
Регистрация: 04.03.2011
Сообщений: 611
По умолчанию

Можно использовать TMemIniFile, пример смотри во вложении
Вложения
Тип файла: zip 208848.ZIP (5.5 Кб, 13 просмотров)
astecenko вне форума Ответить с цитированием
Старый 05.08.2012, 13:26   #3
Mikayilov
Новичок
Джуниор
 
Регистрация: 04.08.2012
Сообщений: 2
По умолчанию

спасибо. я так сделал и получилось
Код:
ComboBox1.Items.LoadFromFile('countries.txt');
  Memo1.Lines.LoadFromFile('cities.txt');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
Var
  i : Integer;
  s : String;
begin
  Memo2.Lines.Clear;
  s:=ComboBox1.Text;
  s:=Copy(s,1,Pos(' ',s)-1);
  If Length(s)<>0 Then
  For i:=0 To Memo1.Lines.Count-1 Do
  If Copy(Memo1.Lines[i],1,Length(s))=s Then
 memo2.lines.Add(Memo1.Lines[i])
Mikayilov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В зависимости от выбора в Select изменить значения другого Select Tayfun HTML и CSS 3 18.08.2011 00:05
Подстановка значений в зависимости от выбора из списка MihailBY Microsoft Office Excel 17 08.07.2010 00:21
В зависимости от значения в ComboBox1 выводить значения в ComboBox2 LeX2009 БД в Delphi 14 21.05.2010 16:49
Показ цены в зависимости от выбора из меню Anarchist666 JavaScript, Ajax 0 10.02.2010 20:17
Access 2003: как сделать изменяющийся список выбора в зависимости от значения в соседнем поле tanchikb Microsoft Office Access 14 14.01.2010 10:46