Auf den letzten char in einer Datei zugreifen

[Klaus01]

.. ich würde die Datei in einen Stream laden, das Ende des Streams springen und schauen was für ein Zeichen sich da befindet.

Grüße
Klaus

[Luckie]

Eine Stringliste behandelt die Textdatei als das, was sie ist, als Zeichenkette. Und darauf kann man ganz einfach die Funktionen zur Zeichenkettenmanipulation anwenden.

@Moombas: Und warum nicht Delete?

Delete ( var Source : string; StartChar : Integer; Count : Integer )

[Moombas]

Zitat von Luckie:

@Moombas: Und warum nicht Delete?

War mir jetzt zu einfach ^^ ... klar kann man auch

Delete(sl.Strings[sl.Count-1], length(sl.Strings[sl.Count-1]) - 1, 1);
nehmen^^

[kagi3624]

Zitat von Moombas:

Zitat von Luckie:

@Moombas: Und warum nicht Delete?

War mir jetzt zu einfach ^^ ... klar kann man auch

Delete(sl.Strings[Liste.Count-1], length(sl.Strings[Liste.Count-1]) - 1, 1);
nehmen^^

Was ist denn 'Liste.count'..wo kommt das her?

[Bbommel]

Zitat:

Was ist denn 'Liste.count'..wo kommt das her?

Das soll wohl sl.Count heißen. Also die Anzahl der Elemente (=Anzahl der Zeilen) in der Stringliste sl. Die Anweisung soll in der letzten Zeile das letzte Zeichen löschen.

Zitat:

Delphi (6?) behandelt ja auch nicht initialisierte Objekte als schon vorhandene Objekte und reicht die dann auch feucht fröhlich an andere Funktionen usw weiter.

Ist zwar etwas von der eigentlichen Frage weg, aber dennoch kurz der Hiwneis, damit aus deinem Frust nicht komplette Abneigung wird: eigentlich gibt es bei Delphi Compiler-Warnungen, wenn du auf Variablen (Objekte oder sonst etwas) lesend zugreifst, bevor sie initailisiert wurden. Wenn das nicht der Fall ist, dann ist ggf. im Code noch etwas anderes nicht in Ordnung oder die Warnungen sind ausgeschaltet. Kannst ja bei Interesse mal einen neuen Thread zu dem Thema aufmachen, wenn du Hilfe brauchst herauszufinden, warum es keine Warnung gab.

[Moombas]

Sorry, Bbommel hat recht, das war ein Copy/Paste Fehler.

So wäre es richtig bzw. Luckie hat ja auch schon die Anwendung von Delete gepostet.
Delete(sl.Strings[sl.Count-1], length(sl.Strings[sl.Count-1]) - 1, 1);

[kagi3624]

Zitat von Moombas:

Sorry, Bbommel hat recht, das war ein Copy/Paste Fehler.

So wäre es richtig bzw. Luckie hat ja auch schon die Anwendung von Delete gepostet.
Delete(sl.Strings[sl.Count-1], length(sl.Strings[sl.Count-1]) - 1, 1);

Ich bekomme aber folgenden Fehler bei dieser Zeile...

[Fehler] FRMMAIN.pas(3782): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden