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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.06.2010, 14:48
Tonyy Tonyy вне форума
Новичок
 
Регистрация: 05.04.2010
Сообщения: 85
Репутация: 10
По умолчанию перегрузка стека

программа не начинает еще свое выполнение и пишет ошибку, что стек перегружен. как это исправить? вот код:
Код:
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit Usegy2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    S1: TStringGrid;
    S2: TStringGrid;
    S3: TStringGrid;
    Button1: TButton;
    O1: TOpenDialog;
    E1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function SwapDWorD(X: DWord):dword;assembler;
 asm
 bswap eax
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
type
    THeadTras = record
         b1,b2,b3,b4,b5,b6,b7:longint;
         b8,b9,b10,b11:word;
         b12,b13,b14,b15,b16,b17,b18,b19:longint;
         b20,b21:word;
         b22,b23,b24,b25:longint;
         b26,b27,b28,b29,b30,b31,b32,b33,b34,b35,b36,b37,
         b38,b39,b40,b41,b42,b43,b44,b45,b46,b47,b48,b49,
         b50,b51,b52,b53,b54,b55,b56,b57,b58,b59,b60,b61,
         b62,b63,b64,b65,b66,b67,b68,b69,b70,b71:word;
         b72,b73,b74,b75,b76,b77,b78,b79:longint;
         b80,b81,b82,b83,b84,b85,b86,b87,b88,b89,b90,b91,b92,b93:word;
    end;
 
 
    THTras = record
         HeadTras:THeadTras;
         Data: array[1..1000] of single;
    end;
 
    TH400 = record
         b1,b2,b3:longint;
         b4,b5,b6,b7,b8,b9,
         b10,b11,b12,b13,b14,
         b15,b16,b17,b18,b19,
         b20,b21,b22,b23,b24,b25,b26,b27:word;
     end;
 
     TH3200 = record
         bit:array [1..255] of byte;
     end;
     TFN = record
         Tras: array [1..161] of THTras;
     end;
 
var
F:TFILEStream;
H3200:TH3200;
H400:TH400;
 
FN:array [1..5] of TFN;
i,j,k,index:integer;
l:real;
buf:single;
dd:array [0..3] of  byte absolute buf;
temp:byte;
begin
IF O1.Execute then
f:=TfileStream.Create(o1.FileName,fmOpenRead);
Admin: Еще раз напоминаю про оформление кода, при рецедиве последуют санкции!

Последний раз редактировалось Admin, 02.06.2010 в 14:55.
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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