Letztes Zeichen im Memo

[himitsu]

Zitat:

auf Lines.String[1] zugreife bekomme ich auch die erste hinzugefügte Zeile raus.

Das kann aber nicht stimmen.
Nja, die 1. Eingefügt vieleicht, aber nicht die Erste, welche im Memo drinsteht.
Du hast bestimmt den Komponentennamen vergessen, welchen die VCL standardmäßig als Inhalt einfügt, wenn du ein Memo auf die Form pappst.

Indize beginnen fast immer bei 0 (der erste Ausgangswert in der Zählung).
Das ist auch bei dynamischen Arrays so ... Offset 0 ist der Anfang.


Nur die Delphi-Strings fangen bei 1 an, aber eigentlich fangen sie auch bei 0 an, wenn man sich mal die Geschichte ansieht.
Siehe ShortString:
An Position 0 sitzt das Längenbyte und danach folgen die Zeichen.

Wegen der Abwärtskompatibilität hat man dann die neueren Strings (AnsiString) dann auch mit 1 anfangen lassen.
Intern fangen sie aber mit 0 an (Delphi zieht dort intern immer 1 ab).

Delphi-Quellcode:

var
  S: String;
  P: PChar;

S := '123';
P := PChar(S); 
Memo1.Lines.Add(S[1] + ' ' + P[0]);  // an Position 0 ist das 1. Zeichen
Memo1.Lines.Add(S[2] + ' ' + P[1]);
Memo1.Lines.Add(S[3] + ' ' + P[2]);
Memo1.Lines.Add(Memo1.Lines[0]);  // 0 gibt die 1. Zeile zurück
Memo1.Lines.Add(Memo1.Lines[1]);
Memo1.Lines.Add(Memo1.Lines[2]);

[Informatik2012]

ich muss mich korrigieren. ich habe gerade nochmal nachgeschaut bei mir im quelltext.
ich hab ein wenig anders mit dem Memo gearbeitet. Deswegen hat es auch mit der 1 geklappt obwohl es eine 0 sein sollte.
ich hab nicht direkt eine 1 eingetragen. sondern mit dem index eines dynamischen arrays gearbeitet und das fängt ja auch bei 0 an deswegen gab es keinen fehler.