Delphi - tipi strutturati e procedure

Forum - Delphi - tipi strutturati e procedure

haberdasherv_ (Normal User)
Rookie

Messaggi: 22
Iscritto: 11/04/2009

Postato alle 16:45
Mercoledì, 21/10/2009

mi servirebbe creare una procedura che preso in input un tipo di dato prima dichiarato sia in grado di manipolarne i singoli campi.

Codice sorgente - presumibilmente Delphi

type
  TForm1 = class(TForm)
    procedure modifica(var app: ???);
type
  coordinate = record
  var x1 :integer;
      x2 :integer;
      x3 :integer;
      x4 :integer;
  end;
var
  rettangolo : coordinate; 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  modifica(rettangolo);
end;
 
procedure TForm1.modifica(var app: ???);
begin
  app.x1 := 2;
  app.x2 := 37; 
end;

per fare ciò, come dovrei dichiarare la variabile app che viene passata alla procedura?

lorenzo (Normal User)
Guru

Messaggi: 1178
Iscritto: 15/04/2008

Postato alle 16:56
Mercoledì, 21/10/2009

beh se il tipo della variabile app(che poi è uguale a quello di rettangolo) è "coordinate" allora metti

var app: coordinate

haberdasherv_ (Normal User)
Rookie

Messaggi: 22
Iscritto: 11/04/2009

Postato alle 20:53
Mercoledì, 21/10/2009

fosse stato così facile non l'avrei chiesto XD
questa è stata la prima cosa che ho fatto ma mi da "undeclared identifier" nella riga dove dichiaro la procedura, "identifier redeclared" dove dichiaro il nome del tipo e ancora "undeclared identifier" dove dichiaro il tipo del dato "rettangolo".

lorenzo (Normal User)
Guru

Messaggi: 1178
Iscritto: 15/04/2008

Postato alle 22:22
Mercoledì, 21/10/2009

togli la parola chiave "var" quando dichiari la struttura "record"

devi mettere per esempio:

rect = record
x1: Integer;
...
end;

non ci va la var per dichiarare le cose in una struttura dati record

e poi la procedura la devi dichiarare DOPO la dichiarazione della record

Ultima modifica effettuata da lorenzo il 21/10/2009 alle 22:23

haberdasherv_ (Normal User)
Rookie

Messaggi: 22
Iscritto: 11/04/2009

Postato alle 22:40
Mercoledì, 21/10/2009

grazie mille, adesso funziona.