IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - AnsiString ve PAnsichar (https://www.ircforumlari.net/delphi/688279-ansistring-ve-pansichar.html)

Kaf_Dağı

11 Mart 2015 13:32

AnsiString ve PAnsichar

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: 14:48.