weiß jemand, was ich hier falsch mache oder wo ich Informationen finde um zu lernen, wie es richtig gemacht wird?
Ich bin seid Donnerstag immer wieder am Suchen, aber ich finde: Nichts ...

Ich möchte eine Textdatei in das WMemo laden, bekomme aber im Browser eine Fehlermeldung:
Aus der Meldung in der Browser Console werde ich auch nicht schlau:
Code: Alles auswählen
unit main;
{$mode objfpc}{$H+}
interface
uses
JS, Classes, SysUtils, Graphics, Controls, Forms, Dialogs, WebCtrls, StdCtrls,
ExtCtrls;
type
{ TWebGuiAppForm }
TWebGuiAppForm = class(TWForm)
MyWMemo: TWMemo;
WButton1: TWButton;
WButton2: TWButton;
WPanel1: TWPanel;
WPanel2: TWPanel;
procedure FormCreate(Sender: TObject);
procedure WButton1Click(Sender: TObject);
procedure WButton2Click(Sender: TObject);
private
public
end;
var
WebGuiAppForm: TWebGuiAppForm;
implementation
{$R *.lfm}
{ TWebGuiAppForm }
procedure TWebGuiAppForm.WButton1Click(Sender: TObject);
begin
MyWMemo.Lines.LoadFromFile('SampleText.txt');
end;
procedure TWebGuiAppForm.WButton2Click(Sender: TObject);
begin
MyWMemo.Clear;
end;
procedure TWebGuiAppForm.FormCreate(Sender: TObject);
begin
MyWMemo.Lines.Add('Los geht''s ...');
MyWMemo.Lines.Add('');
end;
end.