![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как избавиться от символа нуля вконце строки?
Комбинатор © (2004-07-17 18:28:00)Подскажите пожалуйста как избавиться от символа нуля вконце строки?
Есть след. код:
g:=TStringList.Create;
g.Clear;
g.Text:='word';
Edit.Text:=g.Text;
при этом автоматически к 'word' приписывается символ нуля, что мне крайне не надо.
Заранее спасибо.
/w\ (2004-07-17 20:03:00) [1]мож ишь
Судя потому, как ты пишешь, следует полагать, что ты дворником уже работаешь?
\m/ (2004-07-17 19:54:00) [2]На работу ты можишь дворником устроиться.
GanibalLector (2004-07-17 19:02:00) [3]я там лажанулся в спешке,но у Паладина лучше!!!без использования переменной st
надо было так
// во ...наконец-то
Edit1.Text:=st;
Комбинатор (2004-07-17 19:01:00) [4]Anatoly Podgoretsky
да на работу хочу устроиться и ентим заниматься...
Palladin (2004-07-17 19:01:00) [5]
> [20] Комбинатор (17.07.04 18:59)
Конечно не поменяется, вдумыватся надо в то что пишут, а не C&P...
// во ...наконец-то
Edit1.Text:=g.Text;
нужно исправить
Edit1.Text:=st;
Комбинатор (2004-07-17 19:00:00) [6]О ДА...господа...спасиб!
Anatoly Podgoretsky (2004-07-17 19:00:00) [7]Тебя кто то заставляет программировать на Дельфи?
Комбинатор (2004-07-17 18:59:00) [8]GanibalLector
всё также ничаго не поменялось...
GanibalLector (2004-07-17 18:59:00) [9]2 Palladin [17]
О...прикольное решение. Царь!!! Надо будет взять на вооружение.
Palladin (2004-07-17 18:58:00) [10]
> [16] Комбинатор (17.07.04 18:55)
Это понятно... в таком случае #13#10 между строками будут тоже выводится в Edit1...
Palladin (2004-07-17 18:56:00) [11]Перлы за перлами
сразу
Edit1.Text:=Copy(g.Text,1,Length(g.Text)-2)нельзя было написать?
Комбинатор (2004-07-17 18:55:00) [12]Palladin ладно, понял...
и всё равно мне нужен TStringList у меня прога написана уже и там именно он....он при добавлении строки как раз переводит
каретку, а мне нужен такой отформатированный текст...
GanibalLector (2004-07-17 18:54:00) [13]>пишет:
[Error] Chif.pas(58): Constant object cannot be passed as var parameter
Знаю...смотри [14]
GanibalLector (2004-07-17 18:53:00) [14]var g: TStringList; st:string;
begin
g:=TStringList.Create;
g.Text:='word2';
messagedlg(inttostr(length(g.text)),mterror,[mbok],0);
st:=g.Text;
messagedlg(inttostr(length(st)),mterror,[mbok],0);
delete(st,length(st)-1,2);
messagedlg(inttostr(length(st)),mterror,[mbok],0);
// во ...наконец-то
Edit1.Text:=g.Text;
end;
Комбинатор (2004-07-17 18:53:00) [15]delete(g.text,length(g.text)-1,2);
пишет:
[Error] Chif.pas(58): Constant object cannot be passed as var parameter
Palladin (2004-07-17 18:52:00) [16]И откуда эти сказки про невлезаемость в String? Может знаешь про него, то чего не знаю я?
Anatoly Podgoretsky (2004-07-17 18:52:00) [17]Комбинатор (17.07.04 18:47) [8]
То что лезет в Tstringlist то лезет в string и наоборот
Palladin (2004-07-17 18:51:00) [18]
> Комбинатор (17.07.04 18:47)
Чушь городишь! По твоему TStringList.Text какого типа? И что? Не влез?
GanibalLector (2004-07-17 18:50:00) [19]и вправду
messagedlg(inttostr(length(g.text)),mterror,[mbok],0);
всегдв показывает на 2 символа больше!!!
Ну тогда удали 2 последних
delete(g.text,length(g.text)-1,2);
Комбинатор (2004-07-17 18:47:00) [20]Palladin
У меня данных будет объем большой и в string не полезет....нужен Tstringlist...