Thema: Delphi 2 PChar´s vergleichen

Einzelnen Beitrag anzeigen

Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#1

2 PChar´s vergleichen

  Alt 16. Okt 2005, 23:34
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
  var a, b : PChar;
begin
 caption := edit1.Text[1]+ ' '+edit1.Text[2];
 a := @edit1.Text[1];
 b := @edit1.Text[2];
 Memo1.Lines.Add('a = '+a^+' '+inttostr(Cardinal(Addr(a^)))+' '+inttostr(Cardinal(a)));
 Memo1.Lines.Add('b = '+b^+' '+inttostr(Cardinal(b)));
 if a<b then
   Memo1.Lines.Add('a<b is true')
 else if a>b then
   Memo1.Lines.Add('a>b is true')
 else
   Memo1.Lines.Add('a=b is true');
end;
Wenn ich also a und b vergleiche, heisst das, es werden eigentlich die Speicheraddressen zum Auswertung gebracht...Habe ich das richtig verstanden ?
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat