Bei dem versuch das das textedit tutorial einmal nachzumachen ist folgendes problem aufgetreten......

markieren

Code:

if SaveDialog1.Execute then
  begin
    if SaveDialog1.Filename<>’’ then    // ist Dateiname angegeben?
    begin
      Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
    end;
  end;

bei " ’’ "

kommt jedesmal der fehler ungültiges zeichen oda eingabedatei.....mir ist aus dem tutorial nicht ganz klar geworden ob da noch etwas hinmuss zb. *.rtf... oda so... aba das klappte auch nicht!

wär nett wenn etwas hilfe käme

ps: isses das richtige forum dafür?

’’ ist eben nicht gleich ''

Hi,

du musst die '' nehmen (SHIFT + #)

Hi,

seit wann gibt es denn ’’ in Pascal?
Vor allem in diesem Zusammenhang?

MfG Marc

thx das hat geholfen .... und nun zum nexten problem

CODE-------------
procedure TMainform.Speichern1Click(Sender: TObject);
begin
if OpenDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(OpenDialog1.Filename);
end else
begin
if SaveDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
end else
begin
if SaveDialog1.Execute then
begin
if SaveDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
OpenDialog1.Filename:='';
end;
end;

procedure TMainform.Drucken1Click(Sender: TObject);
begin
Richedit1.Print('');
end;

procedure TMainform.Beenden1Click(Sender: TObject);
begin
MainForm.Close;
end;
--------CODE

bei der rotmarklierten stelle meint delphi "anweisung erwartet, aber PROCEDURE gefunden"
.. was seltsam ist, da es sonst auch klappte.....

Zitat:

bei der rotmarklierten stelle

Sehe nicht rotes

mhh jo.... "code" hat das aufgehoben....

Hi,

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainform.Speichern1Click(Sender: TObject);
begin
if OpenDialog1.Filename<>'' then
  begin
    Richedit1.Lines.SavetoFile(OpenDialog1.Filename);
  end else
  begin
    if SaveDialog1.Filename<>'' then
      begin
         Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
      end else
      begin
        if SaveDialog1.Execute then
  begin
    if SaveDialog1.Filename<>'' then
    begin
      Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
      OpenDialog1.Filename:='';
    end;
end;
end;
end;

procedure TMainform.Drucken1Click(Sender: TObject);[/color]
begin
  Richedit1.Print('');
end;

procedure TMainform.Beenden1Click(Sender: TObject);
begin
  MainForm.Close;
end;

Hi deinmeister,

es wäre schön, wenn du den Delphi Tag verwenden würdest für den Delphi-Code.
Also anstatt:

markieren

Code:

procedure TMainform.Speichern1Click(Sender: TObject);
begin
if OpenDialog1.Filename<>'' then
  begin
    Richedit1.Lines.SavetoFile(OpenDialog1.Filename);
  end else

so:

markieren

Delphi-Quellcode:

procedure TMainform.Speichern1Click(Sender: TObject);
begin
if OpenDialog1.Filename<>'' then
  begin
    Richedit1.Lines.SavetoFile(OpenDialog1.Filename);
  end else

MfG Marc

mhh aus spiders beitrag werde ich nich schlau... uuuund jaja .... nexte mal mit "delphi code" der macht es aba trotzdem nich rot....

weiß denn einer warum da so ein fehler kommt?