Ungültiges Zeichen in Eingabedatei: ' ' ($A0)

Pierre · Beiträge: 138 Win 98se und XP prof D5Pers und D7Prof

Hallo,
ich bekomme folgende Fehlermeldung beim Compilieren:

Zitat:

[Fehler] Unit2.pas(97): Ungültiges Zeichen in Eingabedatei: ' ' ($A0)

Dabei wird im Quelltext folgende Zeile markiert:

Zitat:

if SaveDialog1.Execute then path2:=saveDialog1.FileName;

Die Procedure sieht dazu so aus:

markieren

Delphi-Quelltext

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

procedure TForm2.SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean);
var
Files2:TStrings;
path2: string;
begin
if SaveDialog1.Execute then path2:=saveDialog1.FileName;  
  Files2 := TStringList.Create;
  try
   Files2.Add('c:\test\1.txt'); //nur zum Test drei Dateien merken in Liste
   Files2.Add('c:\test\2.txt');
   Files2.Add('c:\test\3.txt');
   CompressFiles(Files2, 'path2');
   finally
   Files2.Free;
  end;
end;

Aufgerufen wird sie hiermit:

markieren

Delphi-Quelltext

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

procedure TForm2.Button1Click(Sender: TObject);
var
ForceCurrentDirectory: Boolean;
path:string;
begin
  ForceCurrentDirectory:= true;
  SaveDialog1.Options := [ofHideReadOnly  ,ofNoChangeDir,ofEnableSizing,OfOverwritePrompt ];
  SaveDialog1.Title := 'Backup speichern';
  path:=ExtractFilePath(Application.Exename);
  saveDialog1.InitialDir:= Path;
  saveDialog1.Filter := 'Backup (*.BBF)|*.BBF|alle Dateien (*.*)|*.*';
  savedialog1.execute;
end;

Ich habe die Suche bemüht und mich im Forum umgesehen, gefunden habe ich leider nichts.

Wer kann mir helfen?

Vielen Dank.

Gruß Pierre

Moderiert von Christian S.: Quote- durch Delphi-Tags ersetzt

mkinzler · Verfasst: So 30.04.06 20:26

Was steht den in Zeile 97? Dort hast du ein ungültiges Zeichen. Überprüfe mal die Zeile.

_________________
Markus Kinzler.

Pierre · Beiträge: 138 Win 98se und XP prof D5Pers und D7Prof

Hallo,
in Zeile 97 steht:

markieren

Delphi-Quelltext

1:	if SaveDialog1.Execute then path2:=saveDialog1.FileName;

Wie soll dort ein ungültiges Zeichen sein?
Gruß Pierre

mkinzler · Verfasst: Mo 01.05.06 08:00

Warum rufst du in der Eventbehandlungsroutine Execute erneut auf?

_________________
Markus Kinzler.

nullplan001 · Verfasst: Mo 01.05.06 08:50

Könnte ein Editor-Fehler sein. Lösch mal die ganze Zeile raus und schreib sie von Hand noch mal. nicht über WZA. Wenn in der Zeile irgendein witziges Zeichen steht, was du durch den Editor nicht siehst, weil es ein Steuerzeichen ist, würdest du es so mitkopieren. Beim von Hand tippen kann dir sowas nicht passieren.
Tschö,
nullplan
//Edit: Hab's mal ausprobiert: $A0 ist entweder á oder das Leerzeichen. In deinem Fall wohl das Leerzeichen. Hast du da irgendwo ein Leerzeichen reingemacht wo keins hinsollte?

_________________
Ich fahr' nicht selber, weil ich festgestellt habe: ich fahre zu emotional. Bin 180 gefahren wo 30 erlaubt war... -- Jürgen von der Lippe

Pierre · Beiträge: 138 Win 98se und XP prof D5Pers und D7Prof

Hallo,
jetzt läuft es wieder, DANKE!

Ich habe folgendes gemacht:

diese Zeile in der Procedure '...canclose'gelöscht und statt 'savedialog1.Execute' in die Button1click Procedure genommen sowie Path2 als globale Variable deklariert:

markieren

Delphi-Quelltext

1:	if savedialog1.Execute then path2:=savedialog1.FileName;

Im Inspektor habe ich alle Einträge auf einen blanc untersucht, war keiner drin.

Vielen Dank.

Gruß Pierre

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme