Hallo! hab ein kleines Problem, vielleicht könnt ihr mir mal helfen?!
ich hab mit nem freund zusammen vorgehabt, ein programm zu erstellen, bei dem man in ein memo zahlen untereinander eingibt und dann in eine txt speichert, die automatisch erstellt wird! anschliessend soll iese wieder auslesbar (geladen) werden!
Folgendes problem! das speichern funktionier, aber das programm muss zum laden der datei neu gestartet werden! WARUM???
noch ein problem, wir haben es nur hinbekommen, das ganze in ein StrinGrid einzulesen möchten es aber gerne in ein Memo haben!
hier der Quelltext:
Code:
unit speichern_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
StringGrid1: TStringGrid;
Label1: TLabel;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fs: TFileStream;
s: string;
F1: TextFile;
zeile,spalte: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=memo1.Text;
fs:=TFileStream.create('versuch.txt',fmOpenWrite);
fs.Write(PChar(s)^,Length(s));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(f1, 'versuch.txt');
reset(f1);
zeile:=1;
spalte:=0;
repeat
StringGrid1.rowcount:=StringGrid1.rowcount+1;
readln(f1,s);
StringGrid1.cells[spalte,zeile]:=s;
zeile:=zeile+1;
until (s='');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage ('in memo zahlen eingeben' +chr(13)+ 'speichern' +chr(13)+ 'schliessen' +chr(13)+ 'neu starten' +chr(13)+ 'laden');
end;
end.
und das programm hänge ich auch dran, is net gross!
ich hoffe, dass mir (uns) jemand helfen kann!