Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Внизкак удалить последнюю строку в 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c