Pointer sorunu

[onurcan1977]

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');
   ...
   

[ARM]

(02-12-2022, Saat: 00:14)onurcan1977 Adlı Kullanıcıdan Alıntı: 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');
   ...
   

en basit yalın haliyle anlatmak gerekirse..

Kod: (Select All)

ArtistPtr:=@Str;

Yukarda yazdığınız kod ile başına "@" ekleyerek Str'nin adresini ArtistPtr işaretçisine yüklemiş oldunuz.


Basit bir proje oluşturun bir buton ekleyip şu kodu deneyebilirsiniz

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  p: ^string;
begin
  //s değişkeninin içerisine delphican yükledik
  s := 'delphican';

  //s'nin adresini işaretçiye(pointer'a) yükle
  p := @s;

  //işaretçiye atanan adresteki verileri çağır. (çıktı: delphican)
  ShowMessage('1. p^ = ' + p^);

  //işaretçide bulunan adresteki verileri değiştir
  p^ := 'arm';

  //Değiştirilen verileri göster (çıktı: arm)
  ShowMessage('2. p^ = ' + p^);

  //peki s değişkeninin değeri ne oldu  (çıktı: arm)
  ShowMessage('3. s = ' + s);
end;

s değişkenine sadece birkez "delphican" değerini tanımlamamıza rağmen.
son ShowMessage da sonuç "arm" olarak değişmiş olacak.
çünkü işaretçi üzerinden veriye eriştik. (--->  p^ := 'arm'; )


Güzel bir kaynak
https://docwiki.embarcadero.com/RADStudi...s_(Delphi)