Forumunuz.Com - AnsiString ve PAnsichar

Forumunuz.Com (https://www.forumunuz.com/)

- Webmaster Forum (https://www.forumunuz.com/webmaster-forum/)

- - AnsiString ve PAnsichar (https://www.forumunuz.com/webmaster-forum/17382-ansistring-ve-pansichar.html)

Kaf Dağı

27 Mart 2015 15:14

AnsiString ve PAnsichar

Kod:

Example code : Display all characters in an AnsiString

var

  myString  : AnsiString;

  myCharPtr : PAnsiChar;

  i : Integer;

 

begin

  // Create a string of AnsiChar's

  myString  := 'Hello World';

 

  // Point to the first character in the string

  i := 1;

  myCharPtr := Addr(myString[i]);

 

  // Display all characters in the string

  while i <= Length(myString) do

  begin

    ShowMessage(myCharPtr^);

    Inc(i);

    Inc(myCharPtr);

  end;

end;

 

 

Sonuç:

 

   H

   e

   l

   l

   o

 

   W

   o

   r

   l

   d

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:55.