Скачать: CL | DM;

как удалить последнюю строку в 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

---

← →
panov ©   (2003-02-16 22:38) [10]

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

---

← →
Юрий Зотов ©   (2003-02-17 01:03) [11]

> tred (16.02.03 22:16)

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

---

← →
Drin ©   (2003-02-17 03:05) [12]


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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c