Zitat von
Martin.Ghosts:
super, vielen dank
Nix super. 8) Das kann man so nicht stehen lassen. Luckie hat wohl nicht richtig überlegt. Du aber mußt Dir überlegen, was Variable sind. Die bestückt man je nach Lage und führt damit das ShowMessage aus. Beispiel :
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
btnTest: TButton;
procedure btnTestClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
i : integer;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnTestClick(Sender: TObject);
begin
showmessage (IntToStr (i));
i := i + 1;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
i := 1;
end;
end.
@Luckie : Du wirst doch nicht mittlerweile ernsthaft Variable durch
WinApi Aufrufe ersetzen wollen ?
