Zitat von
Nailor:
Hey! Dreimal D6 Personal, drei verschiedene Hilfen, oder wie
Wie kommste den da drauf?
Ich hab nicht behauotet, das ich es aus der Hilfe habe.
Meine Hilfe sagt zu dem Suchbegriff Application.MessageBox:
Zitat:
StrLCopy Example
The following example uses an edit control and a button on a form. When the button is clicked, the first X bytes of the edit control are copied into a buffer, where X is a predefined number.
uses SysUtils;
const MAX_BUFFER = 10;
procedure TForm1.Button1Click(Sender TObject);
var
Buffer: array [0..MAX_BUFFER] of char;
begin
StrLCopy(Buffer, PChar(Edit1.Text), MAX_BUFFER);
Application.MessageBox(Buffer, 'StrLCopy Example', MB_OK);
end;
Zufrieden?
Grüsse, Daniel
