nie mam pojęcia o co chodzi, ale:
type
Tstrony = record
adres: string;
ip: integer;
data: TdateTime;
end;
TPliki = record
dir: string;
rozmiar: integer;
daty: TdateTime;
end;
procedure costam(var rekord:TStrony); overload;
begin
ShowMessage(rekord.adres); // wyświetla aktualny adres z rekordu
rekord.adres:='Inny'; // i zmienia go żebyś wiedział że zmieniać można
end;
procedure costam(rekord:TPliki); overload;
begin
ShowMessage(rekord.dir);
// jak się nie doda var przed rekord w deklaracji to nie można zmieniać zawartości rekordu
end;
function dlastron(rekord:TStrony):TStrony;
var a:TStrony;
begin
a:=rekord;
a.adres='www.interia.pl';
Result:=a;
end;
function dlaplikow(rekord:TPliki):TPliki;
var a:TPliki;
begin
with a do begin // stosowanie with umożliwia pominięcie kropek (jakby ktoś miał tego nie wiedzieć...)
dir:='c:\windows\pulpit';
end;
Result:=a;
end;
procedure przeciep(var a:TStrony;var b:TPliki);
// procedura zamieni miejscami stringi, integery i daty w zmiennych
var c:TStrony;
begin
c:=a;
with a do with b do begin
adres:=dir;
ip:=rozmiar;
data:=daty;
end;
with b do with c do begin
dir:=adres;
rozmiar:=ip;
daty:=data;
end;
end;
var pierwszy,drugi:TStrony;
trzeci,czwarty:TPliki;
begin
with pierwszy do begin
adres:='Pomorska.net';
IP:='253.0.0.0';
data:=getDate;
end;
with drugi do begin
adres:='Zadupie.pl';
IP:='214.214.214.214';
data:=getDate; // nie wiedziałem co przypisać do TDateTime bo żadko z datami mam doczynienia.
;p
end;
with trzeci do begin
dir:='c:\windows';
rozmiar:=421451;
...
... // itede itepe :)
...
end;
...
costam(pierwszy);
costam(drugi);
costam(trzeci);
costam(czwarty);
drugi:=dlastron(drugi);
trzeci:=dlaplikow(trzeci);
przeciep(pierwszy,trzeci);
end;
tak se napisałem bo nie mam zielonego o co chodzi ...
zawarłem w tym wszystko o co myśle że mogło chodzić