Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.13;
Скачать: CL | DM;

Вниз

Динамика в Записях   Найти похожие ветки 

 
Proglam-ma   (2003-12-29 15:49) [0]

Мастера Здравствуйте! Это первый мой вопрос к вам, есть ещё но без полного изучения приставать небуду.
В программе
После заполнения Editов и нажатии на ввод добовляется строка в TStrigGrid c введенными данными, поля Editы очищаются вводятся следующие данные.
Есть кнопка Отбор после её нажатия в поля Memo выводится решение задачи. Всё бы хорошо да вот, вводить данных могу только столько сколько указанно в этих строках т.е. const z=6,7..n, ни цикл, ни счетчик поставить не получается.
r:array[1.. z] of stud;
b:array[1.. z] of integer;
В принципе задачу для здачи я уже перевыполнил, но сделав её больше я должен закончить начатое, а бес помощи уже не могу.

procedure TForm1.eChange(Sender: TObject);
var j:integer;
begin
val(e.Text,i,j);
if (j=0) and (i>0) then
s.RowCount:=i;
k:=strToint(e.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
var j,j1,ii,kod:integer;
begin
Val(Edit2.Text,ii,kod); If (kod = 0) and (ii > 0) then
S.RowCount := ii;

s.Cells[1,0]:="


 
KSergey   (2003-12-29 16:16) [1]

array[1..z] of stud;
Надо так:
array of stud;

и читать про SetLength



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

Текущий архив: 2004.01.13;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.008 c
1-37711
Lony
2004-01-01 17:36
2004.01.13
Работа с файлами


1-37644
Hyboid
2003-12-25 19:12
2004.01.13
DLL Strings


14-37921
Ломброзо
2003-12-20 17:54
2004.01.13
Ваши соображения по архитектуре?


1-37609
Alexander_spb
2003-12-28 15:43
2004.01.13
TCanvas


1-37682
Кен
2003-12-25 02:34
2004.01.13
Как правильно проводить лексический анализ текста ? Разбиение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский