[Freeongoo]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   procedure Delaem(var v: array of char;i:integer);   var   Form1: TForm1;   v: array of char;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin    i:=StrToInt(Edit1.Text);    SetLength(v,i);    Delaem(v,i); end;   procedure Delaem(var v: array of char;i:integer); var j:integer; begin    for j:=0 to i do       v[j]:=char(j+10); end;   end.

выдает ошибку
[Error] Unit1.pas(35): Incompatible types: 'Array' and 'dynamic array'
что нужно исправить?

[dr. F.I.N.]

Попробуй так.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

unit Unit1;   interface ... type   ...   <font color="Red">DynCharArray: array of char;</font>   procedure Delaem(var v: <font color="#ff0000">DynCharArray</font>; i:integer);   var   Form1: TForm1;   v: <font color="#ff0000">DynCharArray</font>;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin    i:=StrToInt(Edit1.Text);    SetLength(v,i);    Delaem(v,i); end;   procedure Delaem(var v: <font color="#ff0000">DynCharArray</font>; i:integer); var j:integer; begin    for j:=0 to i<font color="Red"> -1</font> do       v[j]:=char(j+10); end;   end.

[Freeongoo]

спасибо. А вот еще проблема

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; type aoc = array of char;   procedure Delaem(var v: aoc;i:integer);   var   Form1: TForm1;   v: aoc;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin    i:=StrToInt(Edit1.Text);    SetLength(v,i);    Delaem(v,i); end;   procedure Delaem(var v: aoc;i:integer); var j,LocUkazatel:integer;     metka: string;     BufStr: string; begin    metka:= chr(33)+chr(34)+chr(35);    for j:=0 to i-1 do       v[j]:=char(j+30);    LocUkazatel:= pos(metka, v);    BufStr:=Copy(v,LocUkazatel+3,2); end;   end.

выдает ошибки
[Error] Unit1.pas(47): Incompatible types
[Error] Unit1.pas(48): Incompatible types: 'String' and 'aoc'
как их убрать?

[v1s2222]

Код:

1 2	LocUkazatel:= pos(metka, string(v));  BufStr:=Copy(string(v),LocUkazatel+3,2);

Может так ?

[Freeongoo]

в данной программе, которую я привел для примера, в принципе работает. Но в реальной проге если так записывать вылетает ошибка о неправильном доступе к памяти

[Karsh]

Это, скорее всего, из-за того, что вы забыли про нолик на конце строки.
И зачем придумывать свой велосипед, когда есть PChar и String?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Button1Click(Sender: TObject); var    i:integer;    v2: PChar; begin    i:=StrToInt(Edit1.Text);    GetMem(v2, i+1);    ZeroMemory(v2, i+1);    Delaem(v2, i);    FreeMem(v2, i+1); //если уже не нужна, то не забываем освободить память end;   procedure Delaem(v: PChar; i:integer); const     metka = #33#34#35; var     j, LocUkazatel: integer;     BufStr: string; begin    for j:=0 to i-1 do       v[j]:= char(j+30);    LocUkazatel:= pos(metka, String(v));    BufStr:=Copy(String(v), LocUkazatel+3, 2); end;