Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Вниз

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

 
Dima S ©   (2004-04-12 12:36) [0]

Как сделать так чтобы, данные из StringGrid присваивались массиву данных. Ели кто занает то напешите.


 
infom ©   (2004-04-12 12:41) [1]

var Massiv:array[1..100,1..100] of string

var i,j:integer;
begin
for i:=1 to StringGrid1.ColCount do
for j:=1 to StringGrid1.RowCount do
massiv[i,j] := StringGrid.Cells[i,j];

end;


 
wisekaa ©   (2004-04-12 12:57) [2]


> infom ©   (12.04.04 12:41) [1]

А ты подумал, что будет если StringGrid1.ColCount или StringGrid1.RowCount > 100.

type
TMassiv = array of array of string;
var
i,j:integer;
Massiv: TMassiv;
begin
{Выделяем память под массив}
SetLength(Massiv,StringGrid1.ColCount,StringGrid1.RowCount);
{Заполняем массив}
for i:=1 to StringGrid1.ColCount do
for j:=1 to StringGrid1.RowCount do
massiv[i,j] := StringGrid.Cells[i,j];
{После использования освобождаем ресурсы}
SetLength(Massiv,0,0);
end;


 
Курдль ©   (2004-04-12 14:46) [3]


> Как сделать так чтобы, данные из StringGrid присваивались
> массиву данных.

Не могу себе представить, зачем из "Мерседеса" делать "Запорожець"?


 
2DSpike   (2004-04-13 20:21) [4]

А зачем? ведь данные в стринггирде и так уже в массиве (Cells[])?



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

Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.034 c
1-1082034740
DimonNew
2004-04-15 17:12
2004.05.02
Изменить название листа Excel


1-1081941918
Cr@zy-EyE
2004-04-14 15:25
2004.05.02
Создаю объект в initialization, а в юните его не видно


1-1081855137
infom
2004-04-13 15:18
2004.05.02
dxStatusBar


3-1081096181
Walker Hippi
2004-04-04 20:29
2004.05.02
InterBase в сети


14-1081333732
kombat
2004-04-07 14:28
2004.05.02
Какие сторонние компоненты (наборы) вы используете в работе?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский