Auf den letzten char in einer Datei zugreifen

[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

[Luckie]

Delphi-Quellcode:

var 
  sl: TStringList;
  s: String;
Beginn
  // ...;
  s := sl.Text;
  Delete(s, 0, length(s)-1);
  sl.Text := s;
  sl.SaveToFile;

[DasWolf]

Zitat von 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

Einfach den Zwischenschritt über eine Variable gehen.

Delphi-Quellcode:

var
  s: string;
begin
  s := sl.Strings[sl.Count-1];
  s := Trim(s);
  Delete(s, length(s), 1);
  sl.Strings[sl.Count-1] := s;
end;

[Luckie]

Das trim ist eine gute Idee.

[kagi3624]

Habe das jetzt über TFileStream gelöst. Ich kann meinen Kopf nicht über die Tatsache wickeln warum bei dem String der Index mit 1 und nicht 0, so wie sonst, anfängt.

Code:

procedure exportToCSV(Eintrag : string);
var
  strm : TFileStream;
  n : longint;
begin
  strm := TFileStream.Create('file.csv',fmCreate);
  n := Length(Eintrag);
  try
    strm.Position := 0;
    strm.Write(Eintrag[1], n);
    strm.Size := strm.Size - 1;
  finally
    strm.Free();
  end;
end;

[Luckie]

Warum einfach, wenn es kompliziert geht. Berücksichtigst du auch, ob es ANSI oder Unicode ist, wenn du ein Byte abschheidest?

[Moombas]

Zumal du den String immer übergibst beim Aufruf deiner Funktion anstatt "wirklich" die Datei und deren letzte Zeile auszulesen... irgendwie macht deine Lösung in meinen Augen nicht das was du eigentlich gefragt hast...

- Du rufst die Funktion mit dem String "abcxyz" auf.
- Du weist eine csv einem Stream zu
- Definierst die Länge deines übergebenen Strings
- Schreibst deinen String 1:1 in die csv
- Schneidest vom Stream 1 Byte ab (siehe Hinweis von Luckie!)

...

Du willst also bei JEDEM Eintrag in die CSV das letzte Zeichen abschneiden!?
Warum machst du das nicht BEVOR du ihn in die CSV schreibst!?

....

Und wegen 1 und 0 habe ich mir das generell mal so gemerkt: Geht es um die Position starte mit 0, geht es um das Zeichen starte mit 1.
Ob das nun immer hin haut weiß ich nicht aber bisher passte es.

[freimatz]

Zitat von kagi3624:

Habe das jetzt über TFileStream gelöst. Ich kann meinen Kopf nicht über die Tatsache wickeln warum bei dem String der Index mit 1 und nicht 0, so wie sonst, anfängt.

Wie kommst Du drauf, dass es sonst bei 0 anfängt? Was ist bei dir "sonst"?

[kagi3624]

Zitat von freimatz:

Wie kommst Du drauf, dass es sonst bei 0 anfängt? Was ist bei dir "sonst"?

Arrays?