как удалить последнюю строку в string?

← →
tred (2003-02-16 15:12) [0]

в tstrings,tstringlist легко а в string подскажите?

← →
JibSkeart © (2003-02-16 15:17) [1]

Всмысле
последнюю строку в String ???
вообшем то тип string это одна длинная строка
до n-го кол-ва символов (непомню точно)

А TString это список строк грубо говоря

← →
bil © (2003-02-16 15:29) [2]

По символьно с конца строки до первого #13#10;
И уменьшить длинну строки на кол-во символов ( см. выше)

← →
tred (2003-02-16 15:32) [3]

а если в string строки разделены #13#10 то
последнюю строку мона удалить?

← →
tred (2003-02-16 15:34) [4]

>bil как опредилить конец строки?

← →
JibSkeart © (2003-02-16 15:44) [5]

l:=Lenght(MyString)

где l будет иметь длинну всей писанины

и делаешь так
for i:=l downto 2 do
if (mystring[i] = #10) and (mystring[i-1]=#13) then
k:=i-1;

где к начальная позитция, поидее, последней строки
а там уже можно урезать по длинне k

← →
tred (2003-02-16 17:07) [6]

Delete(mystring,k,Length(mystring));
не получается ,удаляет все кроме первой
кто помогет спасибо.

← →
Yuri-7 © (2003-02-16 21:02) [7]

...
var
sl: TStringList;
s: string;

...
sl:=TStringList.Create;
sl.Text:=s;
sl.Delete(sl.Count-1);

← →
tred (2003-02-16 22:16) [8]

в string имеется неизвестно кол.во #13#10
надо найти скажем второй или третий от начала и узнать его длину.
ну сам не как не могу разобратся сэтим stringom
подскажите господа програмеры.

← →
tred (2003-02-16 22:18) [9]

самое главное есть только модуль windows

http://delphibase.endimus.com/?action=viewtopic&topic=strsearch

> tred (16.02.03 22:16)

Обратите внимание на Yuri-7 © (16.02.03 21:02). Самое простое решение. Хоть второй от начала, хоть пятый от конца, хоть длина, хоть что хотите.

procedure DelLast(Var S: string); Var i: int64; finded: boolean; Begin finded:=false; i:=length(S); while not finded and (i > 0) do begin i:=i-1; if S[i] = #13 then if S[i+1] = #10 then finded:=true end; SetLength(S, i - 1) end;

как удалить последнюю строку в string? Найти похожие ветки