Ĺadny brzuch
Mam taki rekord:
Test = record
str1: string;
int1: integer;
end;
i mam taką tablicę:
Tab: array[1..50] of Test;
Moje pytanie brzmi: Jak mogę zwlonić elementy tablicy Tab :?
spróbuj [:/]
tab.Free;
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Asdef - myślisz, że nie próbowałem :(
[Error] Unit1.pas(40): Record, object or class type required wywala w tej lini, ale z resztą nic dziwnego.
A tak poza tym to chodzi mi o zwalnianie poszczególnych elementów, a nie całej tablicy, że efekt miałby być taki tab[2].Free, ale to też oczywiście nie działa.
Użyj pointer'ów:PTest = ^Test; Test = record str1: string; int1: integer; end; [...] var Tab:array[1..50]of PTest; i:integer; begin for i:=1 to 50 do New(Tab[i]); end;i zwalnianie:for i:=1 to 50 do Dispose(Tab[i]);
--------------------
-=[ Delphi rUlzZz ]=-
Dzięki Cyrkiel wszystko działa.
Nigdy wcześniej nie bawiłem się wskaźnikami, ale teraz będę musiał.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Test = record
str1: string;
int1: integer;
end;
i mam taką tablicę:
Tab: array[1..50] of Test;
Moje pytanie brzmi: Jak mogę zwlonić elementy tablicy Tab :?
spróbuj [:/]
tab.Free;
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Asdef - myślisz, że nie próbowałem :(
[Error] Unit1.pas(40): Record, object or class type required wywala w tej lini, ale z resztą nic dziwnego.
A tak poza tym to chodzi mi o zwalnianie poszczególnych elementów, a nie całej tablicy, że efekt miałby być taki tab[2].Free, ale to też oczywiście nie działa.
Użyj pointer'ów:PTest = ^Test; Test = record str1: string; int1: integer; end; [...] var Tab:array[1..50]of PTest; i:integer; begin for i:=1 to 50 do New(Tab[i]); end;i zwalnianie:for i:=1 to 50 do Dispose(Tab[i]);
--------------------
-=[ Delphi rUlzZz ]=-
Dzięki Cyrkiel wszystko działa.
Nigdy wcześniej nie bawiłem się wskaźnikami, ale teraz będę musiał.