Технологии
Динамический массив символов. Delphi 7 - вопрос №725203
Дан динамический массив символов. Вставить после каждого символа символ ‘/’.
(Просьба, обязательные компоненты edit1 (введите эл массива), StringGrid1 StringGrid2, BitBtn1(Вывод исходного массива) BitBtn2(вывод результата) )
вот пример:
Дан динамический массив целых чисел. Вставить после каждого элемента массива нулевой элемент.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, Buttons;
type
TForm2 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
StringGrid1: TStringGrid;
StringGrid2:
Memo1: TMemo;
BitBtn3: TBitBtn;
procedure Edit1KeyPress(Sender: TObject; var Key:Char);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
var
a:array of integer;
procedure TForm2.FormCreate(Sender: TObject);
begin
setlength(a,0);
end;
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
setlength(a,length(a)+1);
a[length(a)-1]:=strtoint(edit1.text);
edit1.text:='';
end;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
stringgrid1.ColCount:=length(a);
for i:=0 to length(a) do
stringgrid1.Cells[i,0]:=inttostr(a[i]);
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
var
n,i,k:integer;
begin
n:=length(a)-1;
setlength(a,length(a)+length(a)-1);
k:=length(a)-1;
for i:=n downto 1 do
begin
a[k]:=a[i];
a[i]:=0;
k:=k-2;
end;
stringgrid2.ColCount:=length(a);
for i:=0 to length(a)-1 do
stringgrid2.cells[i,0]:=inttostr(a[i]);
end;
end.
август 17, 2013 г.
-
Всего ответов: 1
-
Вопрос в чем ?