procedure macht kompellten code kaputt

[Asfaloth]

Hallo,
bei folgender Prozedure tritt ein Problem auf:

Delphi-Quellcode:

procedure move_file;
begin
  //Datei verschieben
  if fileexists(dir2) then
   Begin
    if MessageDlg('Datei ''' + dir2 + ''' schon vorhanden! Überschreiben?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     begin
      deletefile(dir2);
      MoveFile(PChar(dir), PChar(dir2));
     end;
   end
  else
    begin
    movefile(PChar(dir), PChar(dir2));
    //Datei verschoben Kennzeichen auf True setzen
    DatMove := True;
    end;
end;

Er verschiebt die Fehlerunterstriche (wenn man sich z.b. bei movefile(xxx) verschrieben hat) nach oben, desweitern sind die debugger punkte links nicht mehr richtig, d.h. irgendwo wo auch leerzeilen etc sind.

Hat einer eine idee warum das so ist? Danke schonmal.

Gruß Asfaloth

PS: verwende Delphi2005

[jakobwenzel]

Einfach mal Delphi neustarten, das kommt vor.

[Asfaloth]

geht nicht, leider

PS: alles was über dem code ist ist ok....

was ich herausgefunden hab, es ist zwischen

Delphi-Quellcode:

      deletefile(dir2);
      MoveFile(PChar(dir), PChar(dir2));

beim delete gehts, beim move nicht mehr....

[Klaus01]

Vielleicht hilft das:
Lösche, wenn Du den Quellcode hast, Deine *.dcu Dateien und kompiliere
das Projekt neu.

Grüße
Klaus

[Asfaloth]

geht immer noch nicht

[_frank_]

hast du die datei mal mit nem anderen Editor aufgehabt und gespeichert?
evtl hat der die Zeilenumbrüche verbogen (z.B. #10 statt #13#10)...hatte ich mal, hat sich ähnlich geäußert

HTH FRank

[himitsu]

#10 <> #13#10 (CR/LF) sind selten das Problem ... die wandelt Delphi doch um? (jedenfalls mein D7)

das Einfachste ist wohl, wenn du mal alle "fehlerhaften" Zeichen entfernen läßt:

z.B.:

Delphi-Quellcode:

Var SL: TStringList;
  S: StringList;
  i: Integer;

SL := TStringList.Create;
SL.LoadFromFile(...);
S := SL.Text;
For i := 1 to Length(S) do
  If S[i] in [#0..#7, #9, #11, #12, #14..31] Then S[i] := ' ';
SL.Text := S;
SL.SaveToFile(...);
SL.Free;

// also nur [#8, #10, #13, ' '..#127, #129..#255] zulassen

// und #10 zu #13#10 wird durch TStringList auch gleich nochmal mit behoben

[Asfaloth]

klappt nun. ich bin mal mim editor rein und an dieser stelle waren kleine kästchen. ich habe diese entfernt und nun klappts wieder

Danke an alle die mir geholfen haben

MfG Asfaloth