Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Delphi by Ololosh ( 14 years ago )
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
if FileExists(OpenDialog1.FileName) then
with TForm2.Create(Self) do
begin
Caption := Caption + IntToStr(Form1.MDIChildCount);
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;
Revise this Paste