Скачать: CL | DM;

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

← →
Змей ©   (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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.977 c