Как удалить из StringList последние два символа

← →
OlegM © (2003-05-19 11:48) [0]

Привет всем
Создаю StringList программно
потом добавлюю в него T.Add("");
Длинну я получаю len:=length(T.gettext);
И в некоторых случаях мне надо удалить последние 2 саимвола, как это сделать.

← →
Skier © (2003-05-19 11:51) [1]

1)len:=length(T.text);
2)Delete(...)

← →
OlegM © (2003-05-19 11:58) [2]

От того и спрашиваю на Delete ошибку выдает
constant object connot be passed as var parameter

← →
Lord Warlock © (2003-05-19 11:59) [3]

Примерчик

var a: TStringList; i: integer; S: String; begin a:=TStringList.Create; try a.Add("12345678"); a.Add("87654321"); for i:=0 to a.Count-1 do if a[i]="87654321" then begin S:=a[i]; SetLength(S,Length(a[i])-2); a[i]:=S; end; Memo1.Lines.Assign(a); finally a.Free; end; end;

← →
OlegM © (2003-05-19 12:06) [4]

Спасибо конечно но
В стринглист я добавляю 1 раз и килобайт 300, и мемо не очень хочется использовать нет ли чего попроще?

← →
Skier © (2003-05-19 12:10) [5]

>OlegM © (19.05.03 12:06)

> и мемо не очень хочется использовать нет ли чего попроще?
>

Дык...убери строку Memo1.Lines.Assign(a); и
будет тебе счастье без мемо.

← →
OlegM © (2003-05-19 12:14) [6]

Я от чего стал использовать стринглист потому-что толи ограничение на размер у переменных типа стринг толи что другое
и когда я использовал переменные то вылетало, а со стринглистом нормально. А в этом примере именно с переменными.

← →
Виктор Щербаков © (2003-05-19 12:16) [7]

> потому-что толи ограничение на размер у переменных типа
> стринг толи что другое

Может ты ShortString использовал?

← →
OlegM © (2003-05-19 12:17) [8]

Нет именно
S:string;

← →
Skier © (2003-05-19 12:18) [9]

>OlegM © (19.05.03 12:14)
Определённо "что другое".
{$H+} и строка может быть до 4 гигабайт (теоретически...), так
что 300 кб это вообще не проблема.

← →
OlegM © (2003-05-19 12:23) [10]

Непонял что такое {$H+}

← →
Skier © (2003-05-19 12:25) [11]

>OlegM © (19.05.03 12:23)
Директива компилятора, но она стоит по умолчанию, видимо у тебя
проблема в чем-то другом. Хорошо бы твой код увидеть...

← →
OlegM © (2003-05-19 12:32) [12]

Да код то простой

S:="Update plat Set ";
...
T.Add(S+" pole5="+chr(39)+HexEditor1.AsHex+chr(39)+", ");

Так вот иногда мне нужно удалять запятую и пробел в конце

← →
Skier © (2003-05-19 12:40) [13]

1) Если строка в списке T одна, то делай всё через string.
TStringList не нужен
2) Если не одна, то делай Lord Warlock © (19.05.03 11:59), т.е.
с доп. переменной и не извращайся...

Ладнинько спасибо буду разбираться со string раз говорите что до 4 гб

>Skier
А где oна должнa стоять?

← →
Vasiliy (2003-05-19 12:54) [18]

В начале твоего юнита

Спасибо!

Как удалить из StringList последние два символа Найти похожие ветки