Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.05.2013, 07:43
Grynyuk Grynyuk вне форума
Прохожий
 
Регистрация: 21.05.2013
Сообщения: 25
Версия Delphi: Embarcadero RAD
Репутация: 10
По умолчанию Найти ошибку

Задание в массиве поменять местами 1 и мин элемент. Помогите найти ошибку. Если можно подскажите как использовать вместо стринггрид мемо для ввода и листбокс для вывода
Код Delphi
Код:
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const n=10;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  i:=0;
  while i<n-1 do
  begin
    stringgrid2.Cells[1,1]:=stringgrid1.Cells[i+1,1];
    stringgrid2.Cells[i+1,1]:=stringgrid1.Cells[i,1];
 
  end;
  label2.Visible:=true;
  stringgrid2.Visible:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
min,k:string;
  begin
    for i:=0 to n-1 do
      begin
        stringgrid1.ColWidths[i]:=40;
        stringgrid2.ColWidths[i]:=40;
        stringgrid1.Cells[i,0]:=inttostr(i+1);
        stringgrid2.Cells[i,0]:=inttostr(i+1);
        stringgrid1.Cells[i,1]:=inttostr(random(101));
             min:=  stringgrid1.Cells[i,1];
 
            for j:=1 to n-1 do
                if   stringgrid1.Cells[j,1]<min then
                      begin min:=stringgrid1.Cells[2,1];
                    end;
                    k:=  stringgrid1.Cells[1,1];
           stringgrid1.Cells[1,1]:=min;
           min:=k;
     end;
    stringgrid1.Width:=414;
    stringgrid2.Width:=414;
    label2.Visible:=false;
    stringgrid2.Visible:=false;
  end;
 
 
end.
MAD: Пользуемся тегами, иначе бан!

Последний раз редактировалось M.A.D.M.A.N., 21.05.2013 в 07:50.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:28.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter