Массив

← →
Змей © (2006-01-16 15:41) [0]

Здравствуйте Мастера!
нужно создать массив до 30 ячеек. есть на форме edit1, edit2, button

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

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

← →
evvcom © (2006-01-16 15:44) [1]

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

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

← →
Digitman © (2006-01-16 15:51) [2]

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

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

← →
Зм1й © (2006-01-16 18:40) [3]

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;

← →
Змей © (2006-01-16 23:17) [4]

Спасибо все работает красиво
а вот как удалять из массива?
ну например edit3: набираем в ней текст кликаем на button и ячейка с содержанием надписи которая совпадает с текстом в edit3 удаляется
THANK

← →
Kot_ (2006-01-16 23:22) [5]

а так не пробовал
Edit2.Caption:=Edit2.Caption+", "+Edit1.Caption;

← →
EvS (2006-01-16 23:37) [6]

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;

Массив Найти похожие ветки