Tips (1541)

Tip Bewertung (2):

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('c:\afile.txt');
    Memo1.SetSelTextBuf(PChar(sl.Text));
  finally
    sl.Free;
  end;
end;