Inhalt des Synedits speichert nicht

Silence · Beiträge: 58 Win XP Prof Delphi 7

Delphi-Quelltext

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

procedure TForm1.Speichern1Click(Sender: TObject);
begin
 if s = '' then
 begin

  if savedialog1.Execute then
  begin
   Synedit1.Lines.SaveToFile(savedialog1.files.text);
  end;

 end
 else
 begin
  synedit1.Lines.SaveToFile(s);
 end;

end;

s enthält den dateiname. wenn der vorhanden is dann speichert es. und wenn net und ich einen dateinamen eingeben muss, dann gehts net. Der sagt der syntax des pfads sei net korrekt. was ischen da falsch?

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

markieren

Delphi-Quelltext

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

procedure TForm1.Speichern1Click(Sender: TObject); 
var
s:String;
begin
  s:=Edit1.Text;
  if s='' then 
 begin
  if SaveDialog1.Execute then
  SynEdit1.Lines.SaveToFile(SaveDialog1.Filename)
 end
  else
   Synedit1.Lines.SaveToFile(s);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme