Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Массив

Змей © (2006-01-16 15:41:00)
Здравствуйте Мастера!
нужно создать массив до 30 ячеек. есть на форме edit1, edit2, button

вводя в edit1 какой либо текст нажимая на кнопку:
1) этот текст помещается в массив и так делать
можно до 30 раз.
при каждом нажатии текст помещается в последующую пустую ячейку.
2) текст из ячеек через запятую отображается в edit2.

все перепробовал, лабуда какая то получается.
если можете помогите кодом!
СПАСИБО!

EvS (2006-01-16 23:37:00) [1]
procedure Tform1.Button1Click (Sender: TObject);
var k,l:Integer;
begin
for k:=0 to 29 do
If arr[k]=Edit3.Caption then begin
for l:=k to 28 do arr[l]:=arr[l+1];
arr[29]:='';
exit;
end;
end;

Kot_ (2006-01-16 23:22:00) [2]
а так не пробовал
Edit2.Caption:=Edit2.Caption+', '+Edit1.Caption;

Змей (2006-01-16 23:17:00) [3]
Спасибо все работает красиво
а вот как удалять из массива?
ну например edit3: набираем в ней текст кликаем на button и ячейка с содержанием надписи которая совпадает с текстом в edit3 удаляется
THANK

Зм1й (2006-01-16 18:40:00) [4]
var arr: Array[0..29] of String; i, j: Integer= 0; procedure Tform1.Button1Click (Sender: TObject); begin if i<30 then begin Inc(i); arr[i-1]:=Edit1.Caption; for j:=0 to i-2 do Edit2.Caption:=Edit2.Caption+arr[j]+', '; Edit2.Caption:=Edit2.Caption+arr[i-1]+'.'; end; end;

Digitman (2006-01-16 15:51:00) [5]

> все перепробовал

показывай, что конкретно ..

evvcom (2006-01-16 15:44:00) [6]

> все перепробовал

не верю! Если бы всё, то нашелся бы вариант. Ты даже миллионной доли всего возможного не попробовал. И тем более нам ничего не показал.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »