Typkonvertierung

[Pascano]

Hallo,

ich habe auf http://www.freepascal.org/docs-html/rtl/sysutils/" onclick="window.open(this.href);return false; etwas zur Typkonvertierung gefunden.
Was ich bräuchte ist eine Konvertierung von Integer zu PChar.
Oder von Char zu PChar, da ich von Integer zu Char dank

Code: Alles auswählen

Char := chr(Integer)

mittlerweile konvertieren kann.
Worum handelt es sich eigentlich bei PChar - ist das ein spezieller Char-Typ?
ich bin Pascal-Anfänger.
Schöne Grüße,
pascano

[Socke]

Was ich bräuchte ist eine Konvertierung von Integer zu PChar.
[...]
Willkommen im Forum!

Worum handelt es sich eigentlich bei PChar - ist das ein spezieller Char-Typ?

Woher weißt du, dass du genau diese Konvertierung benötigst, wo du noch nicht einmal weißt, was PChar ist? Beschreibe doch bitte einmal, was du erreichen möchtest.

Kleine Einführung in die Typen, die du hier ansprichst:

• In Integer kannst du Ganzzahlen speichern (in der Regel 4 Byte)
• In Char passt genau ein 8-Bit-Buchstabe
• PChar ist ein Zeiger auf einen Char; In der Regel zeigt er auf den ersten Buchstaben einer Zeichenkette (mehrere Buchstaben hintereinander)

[Pascano]

Hallo Socke,

vielen Dank für Deine schnelle Nachfrage
ach so "P" steht für Pointer, damit kann ich bloß noch nicht viel anfangen.
Gute Frage, woher ich das weiß Ich wollte mir mit der MessageBox etwas ausgeben lassen und hab mir angesehen, welche Parameter erwartet werden und welchen Typ sie haben. Text und Caption sind vom Typ "PChar".
Wenn ich einen normalen "Char"-Wert übergebe bekomme ich einen Fehler und bei anderen Typen auch.

Wie geht das nun?
Wofür steht bei der MessageBox eigentlich der Flag-Parameter?

Schöne Grüße,
Pascano

[Scotty]

Ein PChar() kann auch ein Zeiger auf mehr als ein Character sein, in dem Fall ein String. Per PChar('Hello World') wird "konvertiert".

Wenn du mit Strg+linke Maustaste auf einen validen Parameter klickst, kommst du zur entsprechenden Stelle im Quellcode. Etwas durchhangeln, dann findest du das jeweilige Set an Flags. Meine MessageBox hat allerdings keinen solchen Parameter (sondern uType). Wenn du ausschließlich für ein veraltetes Betriebssystem programmieren willst, dann gibt es die Information zu Flags im Allgemeinen unter msdn. (PS: Bevor du fragst: Flags werden per Oder miteinander verknüpft, d.h. MB_YES or MB_NO.)

Es gibt viel einfachere Möglichkeiten in Dialog mit dem Benutzer zu terten. ShowMessage() und MessageDlg() wären solche Funktionen - beide sind in der Unit Dialogs definiert.

Code: Alles auswählen

uses ..., Dialogs;
 
procedure TestMsg;
var
  s:string;
begin
  s:='Hello World';
  if MessageDlg(s,mtInformation,[mbYes,mbNo],0)=mrYes then 
   ShowMessage('Salute to the programmer');
  MessageBox(Application.MainForm.Handle,PChar(s),PChar('Test'),0);
end;

[Pascano]

Hallo Scotty,
vielen Dank für Deine Antwort, auch für Deine ergänzenden Tips danke ich - ich muß mich erst noch einfuchsen.
Wozu gibt es soviele Möglichkeiten, Messageboxen abzusetzen? In VBA gibts nur eine
Ich will eigentlich nicht für veraltete Betriebssysteme programmieren - immer nur für die Neusten
Schöne Grüße,
pascano

[Christian]

Die lcl routinen sind wrapper die funktionieren auf allen lcl plattformen messagebox nur auf dem veraltetem windows

[pluto]

Wozu gibt es soviele Möglichkeiten, Messageboxen abzusetzen? In VBA gibts nur eine

Du wirst merken: In Lazarus führen viele Wege nach Rom. Das ist auch ein Problem.