Vokabeltrainer mit Lazarus

[Anna13]

Hallo ihr noch einmal. Jetzt habe ich noch eine peinliche Frage. Und zwar habe ich jetzt alles so weit geändert. Er speichert zwar, aber er lädt nichts. Woran könnte das jetzt liegen? Danke noch mal für die Hilfe, Gruß Anna.

[DeddyH]

Du scheinst etwas falsch zu machen. Was, wird Dir aber ohne den Code zu kennen niemand sagen können.

[bernhard_LA]

ich habe eine Vermutung :

wenn Dein Code wie folgt geht :

Delphi-Quellcode:

  
memo1.lines.SavetoFile('c:\temp\meinedatei.txt');

dann solltest Du auch mit :

Delphi-Quellcode:

 
memo1.lines.loadfromFile('c:\temp\meinedatei.txt');

wieder den Text ins memo laden

[Anna13]

Hallo ihr,
habe ich schon so geschrieben . Funktioniert aber nicht, jedenfalls nicht das Laden. Genau das war die ganze Zeit das Problem...habe es jetzt aber mit opendialog probiert. Da klappt es komischerweise. Trotzdem, die Frage bleibt bestehen, vielleicht habe ich doch noch irgendwas übersehen? Danke noch mal- Gruß, Anna.

[DeddyH]

Noch einmal: wie sieht denn der aktuelle Quältext aus? Es bringt doch nichts, wenn wir hier wild herumraten müssen.

[Delphi-Laie]

Trotz wiederholtem Hinweis, daß der Quelltext fehlt (es kam nur ein kurzer, nicht nachvollziehbarer) kommt hier nichts. Die Beteiligung des Diskussionsstarters ist auch eher mau -> Trollverdacht.

[Anna13]

Hallo ihr,

also ein Troll bin ich nicht, nein, wirklich nicht. Hier der Quelltext:

Delphi-Quellcode:

unit Vokabelt; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton  ;
    Button2: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

     procedure Button4Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
begin
  MEMO1.LINES.SAVETOFILE('c:\temp\portrai.txt');



end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
    memo1.lines.loadfromFile('c:\temp\portrai.txt');

 end;

 procedure TForm1.Button4Click(Sender: TObject);
 begin
    MEMO1.LINES.CLEAR;
 end;

end.


end.

Dies ist der vollständige Quelltext. Auf die Gefahr hin, dass ich mich hier nun vollends blamiere. - Danke und Grüße, Anna