Forum: Programmieren allgemein
by LTE5,
19. Dez 2017
Kannst du erklären was es mit den 7 oder 8 Zeichen aus Beitrag #1 auf sich hat?
Forum: Programmieren allgemein
by LTE5,
19. Dez 2017
Habe mein Beispiel oben geändert.
Forum: Programmieren allgemein
by LTE5,
19. Dez 2017
Mach aus
System.SysUtils.LastDelimiter
das hier
LastDelimiter
Forum: Programmieren allgemein
by LTE5,
19. Dez 2017
Am besten lokal, da wo die Schleife aufgerufen wird
var
iPos: Integer;
sLine brauchst du nicht. Siehe oben.
Habe oben auch einen Tippfehler korrigiert.
Forum: Programmieren allgemein
by LTE5,
19. Dez 2017
Dann so
for i := Memo1.Lines.Count - 1 downto 0 do
begin
iPos := System.SysUtils.LastDelimiter('%', Memo1.Lines);
if iPos > 0 then // weil du eben von irgendwas mit 7, 8 und was weiß ich geschrieben hast, stand hier vorher > 7
begin
Memo1.Lines := Copy(Memo1.Lines, 1, iPos);
end;
Forum: Programmieren allgemein
by LTE5,
19. Dez 2017
Versuch mal System.SysUtils.LastDelimiter
for i := Memo1.Lines.Count - 1 downto 0 do
begin
sLine := Memo1.Lines;
iPos := System.SysUtils.LastDelimiter('%', sLine);
if iPos > 7 then
.....