Главная страница
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.017 c
1-87410
Silver_
2003-02-18 10:56
2003.02.27
Str_To_TColumn ???


1-87479
AGAMEMNUM
2003-02-18 08:14
2003.02.27
Помогите разобраться (OLE и COM)


14-87629
Dima2002
2003-02-10 13:41
2003.02.27
RxLib для Delphi 7


3-87331
Карелин Артем
2003-02-10 16:06
2003.02.27
Репликация данных в 2 стороны.


1-87549
Z-man7777
2003-02-17 07:36
2003.02.27
Динамическое создание MenuItem-ов в PopupMenu и в TreeView