Динамические списки в делфи

bibigon · 15.04.2009, 21:38

Доброго времени суток,помогите пожалуйста.
Я написал программу,в первых трех полях вводятся фамилия имя отчество, а в 4ом поле надо вывести фамилию и инициалы,это я сделал,.но мне надо чтоб присутствовал динамический список,придумать надо самому,я не знаю как это сделать.
вот код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit4.Text:=Edit1.Text+' '+Edit2.Text[1]+'.'+Edit2.Text[1]+'.';
end;
Заранее благодарю.

Joker666 · 15.10.2010, 22:46

держи:

procedure TForm1.Button1Click(Sender: TObject);
var
nam:^string;
a,b,c:string;
begin
new(nam);
a:=edit1.text;
b:=edit2.text;
c:=edit3.text;
nam^:=a[1]+b[1]+c[1];
edit4.text:=nam^;
edit1.text:='';
edit2.text:='';
edit3.text:='';
dispose(nam);
end;

AlexZir · 17.10.2010, 13:38

Цитата:

nam^:=a[1]+b[1]+c[1];

Небольшая поправка:
nam^:=a+b[1]+c[1];

15.04.2009, 21:38	#1 (permalink)
bibigon Новичок Регистрация: 15.04.2009 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Динамические списки в делфи Доброго времени суток,помогите пожалуйста. Я написал программу,в первых трех полях вводятся фамилия имя отчество, а в 4ом поле надо вывести фамилию и инициалы,это я сделал,.но мне надо чтоб присутствовал динамический список,придумать надо самому,я не знаю как это сделать. вот код: procedure TForm1.Button1Click(Sender: TObject); begin Edit4.Text:=Edit1.Text+' '+Edit2.Text[1]+'.'+Edit2.Text[1]+'.'; end; Заранее благодарю.

15.04.2009, 21:38
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Рекомендую вам просмотреть аналогичные темы Динамические структуры данных Динамические структуры данных, Паскаль Динамические массивы

15.10.2010, 22:46	#2 (permalink)
Joker666 Новичок Регистрация: 15.10.2010 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	держи: procedure TForm1.Button1Click(Sender: TObject); var nam:^string; a,b,c:string; begin new(nam); a:=edit1.text; b:=edit2.text; c:=edit3.text; nam^:=a[1]+b[1]+c[1]; edit4.text:=nam^; edit1.text:=''; edit2.text:=''; edit3.text:=''; dispose(nam); end;

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070