memotext in txt-dat speichern

toxicmaster · Beiträge: 94

hi,
sorry, dass ich nen neues thema aufmache, da so ein ähnliches schon exsittiert, aber der ist schon als gelöst markiert und ich denke da wird niemand mehr antworten.
also ich will per opendialog und save dialog den text aus einem memofeld speichern und auch laden können.
das ganze soll in eine textdatei gespeichrt und von dort auch wieder geladen werden können.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var Text: TStringList;
filename:string;
begin
  if Savedialog1.Execute then begin
    text.SaveToFile(SaveDialog1.FileName+'.txt');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var filename:string;
begin
  if opendialog1.Execute then begin
    memo1.text:=opendialog1.FileName;
  end;
end;

das habe ich schon mal, aber er lädt nur den pfad beim laden. und speichern kann er nicht, denn es kommt immer ne fehlermeldung. zugriffsfehler oder so kommt dann.

Keldorn · Verfasst: Sa 05.02.05 21:52

ich glaube nicht, das du dazu im Forum/OH nichts findest. Aber es wäre mal interessant: was denkst du, wird dein Programm tun?
erklär einfach,was

Zitat:

text.SaveToFile(SaveDialog1.FileName+'.txt');

und

Zitat:

memo1.text:=opendialog1.FileName;

bewirken soll, bzw. bewirkt. Erklärs, und du wirst selber sehen, das es so nicht funktionieren kann.

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

toxicmaster · Beiträge: 94

hast recht kann ja garnicht gehen.

hab das mal richtig gestellt. lol

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Savedialog1.Execute then begin
    memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
  end;
end;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if opendialog1.Execute then begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
  end;
end;

so hier auch das laden.
thx für den tipp(naja tipp, mhhh anschiss ;D . manchmal brauch man halt mal nen anschiss)

Keldorn · Verfasst: Sa 05.02.05 22:21

dann wird das laden doch auch kein problem sein, oder ?

edit: war zu langsam, hätt nicht fernsehen sollen, wenn du deinen beitrag editierst

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

toxicmaster · Beiträge: 94

ja habs mir nomma richtig angeschaut.
da ist mir das mit den lines aufgefallen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme