Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.27;
Скачать: 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 вся ветка

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.012 c
1-87478
mace
2003-02-18 12:43
2003.02.27
service application (debugging, running :)


3-87251
Mars
2003-02-11 17:05
2003.02.27
Соединение баз в SQL


14-87681
Manulo
2003-02-11 13:32
2003.02.27
Help, please необученому студенту!


14-87663
Дмитрий К.К.
2003-02-11 07:46
2003.02.27
TColor


14-87639
Pingo
2003-02-07 18:41
2003.02.27
M-Bus