переменные Turbo Pascal

[Adzumi]

подскажите пожалуйста
описывая переменную в основной программе, а затем "переописывая" её в подпрограмме (функции например), можно ли в этой функции сослаться на ту глобальную переменную, которую описывали в основной программе? как это сделать?

[SunKnight]

подскажите пожалуйста
описывая переменную в основной программе, а затем "переописывая" её в подпрограмме (функции например), можно ли в этой функции сослаться на ту глобальную переменную, которую описывали в основной программе? как это сделать?

Чтото я непонял. Зачем такое делать, переописывать? Это пахнет конфликтом переменных. Легче новую переменную создать в функции.

[Air]

Вы имеете в виду:

Var S:string;
      I:integer;
begin
S:='qwe';
I:=123;
...
function asd:string;
Var S:integer;
      I:Real;
begin
S:=456;
I:=5.2;
end;

Writeln(S); // S строка или число?
end;

Если что-то подобное, то переменные в функции никак не относятся к глобальным переменным. А Write выведет строку "qwe".
Сослаться в самой функции не получится, т.к. эта же переменная определена "ближе" чем та первая.
Если Вам нужно сослаться на глобальную переменную, то её нигде (в функциях) не используйте, если ссылаться не придётся, то можно.

[SunKnight]

тут скорее так:

Var S:string;   
      I:integer;   
begin   
S:='qwe';   
I:=123;   
...   
function asd:string;   
Var S:integer;   
      I:string;   
begin   
S:=456;   
I:=S;// S глобальная   
end;   
end;

[Air]

Нет так не прокатит.

function asd:string;     
Var S:integer;     
      I:string;     
begin     
S:=456;     
I:=S; //S глобальная    Сдесь будет ошибка типов, это очевидно
end;     
end;

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

[alexBlack]

Можно явно указать модуль, в котором объявлена глобальная переменная

program Project1;
{$APPTYPE CONSOLE}

uses Windows;

var S:String;

procedure test;
var S:String;
var S2:String absolute Project1.S;
begin
   S := 'local string';
   writeLn(Project1.S);  // global string
   writeLn(S2);          // global string
   writeLn(S);           // local string;
end;

begin
   S := 'global String';
   test;
   readln;
end.

Особенно интересно использование absolute вот здесь.
Хотя проще изменить имена.

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
  var CanSelect: Boolean);
var lCol : integer absolute Col;
    A, B:integer;
begin
   with StringGrid1 do begin
      A := Col;   // StringGrid1.Col
      B := lCol;  // col из параметров
   end;
end;

[SunKnight]

alexBlack, ТУРБО ПАСКАЛЬ. в делфи вообще можно так:

pablic
a:integer;
end;
.....
function aaa:integer;
var z;integer;
begin
z:=Form1.a;
end;

[alexBlack]

Мне казалось, что уточнение unit1.<переменная> работает и в BP.
Цитата из BP manual:

Каждый модуль в операторе uses определяет свою область действия, которая охватывает остальные модули и программу в целом.
Первый модуль в операторе uses представляет самую внешнюю область
действия, а последний модуль представляет самую внутреннюю область
действия. Это означает, что если два или более модулей содержат описание одного и того же идентификатора, то при неуточненном обращении к этому идентификатору будет выбран тот вариант, который был описан в последнем модуле в операторе uses. Однако, вы можете выбрать любой вариант этого идентификатора, указав уточненный идентификатор.

Хотя может я ошибаюсь. Давно не писал в BP.