Прога стала выдавать ошибку

@sat122 · Регистрация: 05.10.2010

Студворк — интернет-сервис помощи студентам

Прога стала выдавать ошибку на замене местами первой и последней ячейки.
И если можно подскажите как менять местами строки и столбцы

@Mawrat · 03.10.2011, 09:19

Исправить надо так:

Delphi
1
2
3
4
5
procedure TForm1.Button3Click(Sender: TObject);
var
  //e:array[0..100] of string;
  e : string;
...

@Puporev · 03.10.2011, 09:22

Замена первой и последней ячейки

Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
var
e:string;//вот из-за этого ошибка
i,j:integer;
begin
e:=stringgrid1.Cells[0,0];
stringgrid1.Cells[0,0]:=stringgrid1.Cells[stringgrid1.ColCount-1,stringgrid1.RowCount-1];
stringgrid1.Cells[stringgrid1.ColCount-1,stringgrid1.RowCount-1]:=e;
end;

Добавлено через 27 секунд

Сообщение от sat122

как менять местами строки и столбцы

А какие и по какому принципу?

@Alex_pac · 03.10.2011, 09:23

Delphi
1
2
3
4
5
6
7
8
9
10
11
// замена
procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer; e: string;
begin
  with stringgrid1 do begin
    e:=Cells[0,0];
    Cells[0,0]:=Cells[ColCount-1,RowCount-1];
    Cells[ColCount-1,RowCount-1]:=e;
  end;
end;

@sat122 · 03.10.2011, 09:42 **[ТС]**

спасибо, сейчас попробую

Добавлено через 12 минут

Сообщение от Puporev

Замена первой и последней ячейки

Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
var
e:string;//вот из-за этого ошибка
i,j:integer;
begin
e:=stringgrid1.Cells[0,0];
stringgrid1.Cells[0,0]:=stringgrid1.Cells[stringgrid1.ColCount-1,stringgrid1.RowCount-1];
stringgrid1.Cells[stringgrid1.ColCount-1,stringgrid1.RowCount-1]:=e;
end;

Добавлено через 27 секунд

А какие и по какому принципу?

Ну к примеру замена строк столбцами

@Puporev · 03.10.2011, 09:46

Сообщение от sat122

Ну к примеру замена строк столбцами

Транспонирование что ли?

Добавлено через 1 минуту
И вообще нужно ставить конкретную задачу. Кроме того, может лучше работать не с таблицами, а с матрицами, а таблицы использовать только для вывода?

@Mawrat · 03.10.2011, 09:49

Сообщение от sat122

И если можно подскажите как менять местами строки и столбцы

Например, поменять местами 2 строки:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  Sg : TStringGrid;
  Sl : TStringList;
begin
  Sg := StringGrid1;
  Sl := TStringList.Create;
  
  //Запоминаем строку с индексом 2.
  Sl.Assign(Sg.Rows[2]);
  //На место строки с индексом 2 записываем строку с индексом 5.
  Sg.Rows[2].Assign(Sg.Rows[5]);
  //На место строки с индексом 5 записываем запомненную строку.
  Sg.Rows[5].Assign(Sl);
  
  //Удаляем список из памяти.
  FreeAndNil(Sl);
end;

Столбцы переставляются подобным образом.
---
Кроме этого, класс TStringGrid имеет методы по перемещению строк и столбцов. Но эти методы объявлены в разделе Protected и поэтому недоступны в вызывающей программе. Можно в потомке от TStringGrid эти методы перенести в раздел Public.

@sat122 · 03.10.2011, 09:50 **[ТС]**

Сообщение от Puporev

Транспонирование что ли?

Добавлено через 1 минуту
И вообще нужно ставить конкретную задачу. Кроме того, может лучше работать не с таблицами, а с матрицами, а таблицы использовать только для вывода?

Особо конкретной не получается поставить)
не знаю что у меня сегодня прога на экзамене попадётся
Ну хорошо заменить одну строку другой

@Puporev · 03.10.2011, 09:54

Если тем методом что у Вас в программе, то так.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button3Click(Sender: TObject);
var
e:string;
s1,s2,i:integer;
begin
for i:=0 to  stringgrid1.ColCount-1 do
 begin
  e:=stringgrid1.Cells[i,s1];
  stringgrid1.Cells[i,s1]:=stringgrid1.Cells[i,s2];
  stringgrid1.Cells[i,s2]:=e;
 end;
end;

@sat122 · 03.10.2011, 09:56 **[ТС]**

Puporev, Спасибо теперь понятно

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@sat122 1 / 1 / 0 Регистрация: 05.10.2010 Сообщений: 30
	03.10.2011, 09:56 [ТС]
	Puporev, Спасибо теперь понятно 0