07 Mar 11
2 edits
Originally posted by jimslyp69It was so easy in those days.
10 PRINT "Jim is great"
20 GO TO 10
RUN
For example, in Delphi to do the same thing in a memo on a form:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
repeat
Memo1.Lines.Add('Jim is great'😉;
until false;
end;
end.
EDIT: I did indent, but the forum strips those spaces out.
EDIT: This is excluding all the form and component data files, and, of course, all the required windows objects defined in the uses clause.
