Textedittutorial Problem

[deinmeister]

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

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?

[toms]

’’ ist eben nicht gleich ''

[Die Muhkuh]

Hi,

du musst die '' nehmen (SHIFT + #)

[Chegga]

Hi,

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

MfG Marc

[deinmeister]

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.....

[toms]

Zitat:

bei der rotmarklierten stelle

Sehe nicht rotes :roll:

[deinmeister]

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

[Die Muhkuh]

Hi,

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;

[Chegga]

Hi deinmeister,

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

Code:

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

so:

Delphi-Quellcode:

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

MfG Marc

[deinmeister]

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

weiß denn einer warum da so ein fehler kommt?