Fehler beim überschreiben von Datei

[EWeiss]

Zitat von himitsu:

Meinst du nicht $I- ?

Ja korrekt!

Zitat:

Wobei Seek und ReadLn garnicht zusammen funktionieren sollte.

Bei mir schon wobei ich nicht Seek sondern FSeekTo verwende was ein sehr großer Unterschied ist.
Ich fülle damit meine Variablen um nachher den start und endpunkt eines Textes über eine Abfrage besser
identifizieren zu können.

Delphi-Quellcode:

procedure FSeekTo(nReading: Integer; sBuffer: string);
begin

  New(FPBuffer);

  if nReading = 0 then
  Begin
    New(FToPBuffer);
    LineStart := FToPBuffer;
  end;

  FPBuffer^.Nr    := nReading;
  FPBuffer^.Str   := sBuffer;
  LineStart^.Max  := nReading;
  FToPBuffer^.Ptr := FPBuffer;
  FToPBuffer      := FPBuffer;

end;

Delphi-Quellcode:

  FPBuffer := LineStart;
  while (FPBuffer.Nr <= LineStart.Max) do
  begin

usw..

Aber wie schon gesagt.
Jeder so wie er am besten zurecht kommt.

EDIT:
So schlecht wie er hier hingestellt wird ist mein Code gar nicht
Einfacher wäre natürlich Copy/Paste hier aus dem Forum.


gruss