02-12-2022, Saat: 00:14
Merhaba, pointer kullanmak konusunda yeniyim ve ne yaptığımı tam olarak bilmiyorum. Free Pascal (Lazarus) kullanıyorum. Aşağıdaki kodda hatalı olan nedir?
Kod: (Select All)
procedure TMain.DoRun;
var
...
Str : String;
ArtistPtr : ^String;
DurationPtr : ^String;
BpmPtr : ^String;
KeyPtr : ^String;
PriorityPtr : ^String;
begin
Str:='';
ArtistPtr :=Nil;
ArtistPtr:=@Str;
DurationPtr :=Nil;
DurationPtr:=@Str;
BpmPtr :=Nil;
BpmPtr:=@Str;
KeyPtr :=Nil;
KeyPtr:=@Str;
PriorityPtr :=Nil;
PriorityPtr:=@Str;
...
ArtistPtr^:=GetTagFromFile(P, 'TAG:artist');
...