begin перед procedure TForm1.Button1Click(Sender: TObject); лишний

Спасибо!! Только все я уже разобрался.Кстати ребят не подскажите где взять все описания кодов(то есть кто за что отвечает)
Типа описание команд....

PaPa_CaRLO
????? Каких команд? Если Delphi, то это называется синтаксис языка, он описан в хелпе.

Кстати нет у кого неибудь руссификатор для Delphi 7.0 в yandex и так далее не находит.....

PaPa_CaRLO
Руссификатор, думаю, в Делфи будет просто напросто неуместен (это как телеге 5-ое колесо прикрутить). А вот перевод Хелпа в сети имеется.

Вот мне и нужен только HELP руссифицированный.А вот найти не как не могу что то.Щас опять в поиск полезу.

PaPa_CaRLO
Лови:
http://www.goldfaq.ru/modules/mydownloa ... .php?cid=5

Halfback
Bandwidth Limit Exceeded

ёк...

Блин дошло дело до таких глюков: если юзать win.xp res файл и listview с включенным ViewStyle := vsReport, то вылетает ексепшн, тупость, гипертупость. Может знает кто, как этого избежать?

Помогите сделать регулятор громкости. Плизз очень надо!!

Возможно ли в компоненте TChart применить для просмотра графика горизонтальный ScrollBar?
Просто я в Чарте рисую импульсы, а их колличество может достичь более сотни а сплющеные импульсы меня не устроят. Поэтому и нужна прокрутка и фиксированные длины импульсов.

Daemon Какая версия Delphi? Я всегда использую WinXP стиль и проблем никогда не было

Как в Chart сохранить график функции в файл BMP? Процедура вроде есть, но как сделать - непонятно...

Добавлено спустя 2 часа, 30 минут, 57 секунд:
Отвечаю на свой же вопрос:


Но есть более продвинутое решение с использованием метафайла и диалога сохранения:

Но вот что надо прописать в юните, чтобы этот код заработал?

А что так не пашет чтоли?

Вот прекрасно сработало.

Прошу помощи... Мне надо реализовать обратную польскую запись... Допустим, есть Edit1, из него надо считать инфу, преобразовать в ОПЗ с использованием стека... Саму последовательность действий я понял, но как создать стек в Delphi, как перевести из Edita в стек. Очень прошу помочь... Киньте в меня ссылкой, если это обсуждалось.

ЗЫ delphi я изучаю меньше года, просьба не обвинять меня в ламеризме, я и сам это знаю...

GEG
Стек ты можешь создать самому или использовать TList или один из его наследников. Стек определяет, что доступ к элементам осуществляется по LIFO (Last In - First Out).
Пример стековой структуры:

При попытке разместить:

PStatckItem = ^TStatckItem;
TStatckItem = record
prev: PStatckItem;
Item: Pointer;
end;

В type
......
private

он выдает [Error] Unit1.pas(18): ',' or ':' expected but '=' found Если поставить : , то
[Error] Unit1.pas(20): Undeclared identifier: 'PStatckItem'

Что делать? Причем если описать стек в любой процедуре, то все прекрасно... Но надо задать его в глобальных прерменных... Что делать? Помогите...

GEG
А ты не пытался мой пример нормально оформить?
Ну там, типа Type написать где надо begin и т.д. ?

Текст программы:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
PStatckItem = ^TStatckItem;
TStatckItem = record
prev: PStatckItem;
Item: Pointer;
end;

MyStack : PStatckItem;

{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; MyStack : PStatckItem;

implementation

{$R *.dfm}

procedure Push(aItem: Pointer);
var NewStackItem: PStatckItem;
begin
NewStackItem := new (PStackItem);
NewStackItem^.Item := aItem
if MyStack = nil then begin
MyStack := NewStackItem;
MyStack^.prev := nil;
end else begin
NewStackItem^.prev := MyStack;
MyStack := NewStackItem;
end;
end;

function Pop: Pointer;
var OldStackItem: PStackItem;
begin
result := nil;
if MyStack <> nil then begin
result := MyStack^.Item;
OldStackItem := MyStack;
MyStack := MyStack^.prev;
Dispose(MyStack);
end;
end;

Ничего больше не писал, тк он даже компиляцию не проходит... Застревает на строчке:
PStatckItem = ^TStatckItem; с ошибкой...

Но если стек представить в виде:

procedure my () ;
type
PStatckItem = ^TStatckItem;
TStatckItem = record
prev: PStatckItem;
Item: Pointer;
end;
var
MyStack : PStatckItem;
begin
end;
То все прекрано откомпилируется...
PS Использую Deplhi 7...

Господи, кто же так пишет то???
Ты пытаешся сделать описание record внутри описания класса.