AnsiString ve PAnsichar
AnsiString ve PAnsichar Kod: Kodu kopyalamak için üzerine çift tıklayın! 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
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|