Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#31

AW: Fehler beim überschreiben von Datei

  Alt 12. Apr 2011, 14:32
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

Geändert von EWeiss (12. Apr 2011 um 14:44 Uhr)
  Mit Zitat antworten Zitat