Einzelnen Beitrag anzeigen

Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#6

Re: Alternative zu StrpCopy gesucht

  Alt 9. Aug 2005, 00:15
Moin moin,

die Frage ist schon beantwortet, aber mal Interesse halber:
Was spricht dagegen, es für das Beispiel von Matti (turboPASCAL) so zu machen?
Delphi-Quellcode:

// ..

procedure TForm1.Button1Click(Sender: TObject);
type
   PArrayOfChar = ^TArrayOfChar;
   TArrayOfChar = array[0..25] of Char;
var
   szStr : String;
   ArrayOfChar : array[0..25] of Char;
begin
   szStr := 'Hallo';
   TArrayOfChar(ArrayOfChar) := PArrayOfChar(Pointer(szStr))^;
   ShowMessage(ArrayOfChar);
end;
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat