VPF::Количество символов TStringList - Форум программистов

Canada

Дата 20.11.2009, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Здравствуйте. В TStringList сидит текст. Как узнать его длинну? Пробовал через

var s:string;
...
s:=TStringList.Text;
ShowMessage(IntToStr(Length(s)));

Но коказывает всегда не верное количество символов.
Помогите пожалуйста.

~FoX~

Дата 20.11.2009, 13:15 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Код


var
  s: TStringList;
  l: integer;
begin
  s := TStringList.Create;
  s.Add('Test');
  s.Add('of Correct');
  s.Add('get length text');
  l := Length(s.Text) - s.Count*2;
  Form1.Caption := IntToStr(l);
  s.Free;
end;

Это сообщение отредактировал(а) ~FoX~ - 20.11.2009, 13:17

--------------------

…множественность никогда не следует полагать без необходимости…

morpheyushka

Дата 20.11.2009, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8

Код


procedure TForm14.Button1Click(Sender: TObject);
var
  i, j: Integer;
  st: TStringList;
begin
  j := 0;
  st := TStringList.Create;
  st.Add('Hello world!');
  st.Add('Count of symbol in StringgList....');
  for i := 0 to st.Count - 1 do
    j := j + Length(st.Strings[i]);
  ShowMessage(IntToStr(j));
  st.Free;
end;

Это сообщение отредактировал(а) morpheyushka - 20.11.2009, 13:16

--------------------

Спасибо делается вот так!!!

1000000dollars

Дата 20.11.2009, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 6.10.2007

Репутация: нет
Всего: 8

ShowMessage (IntToStr(Length(StringList.Text)-SL.Count*2));

длина текста за минусом количество_строк*(размера символов переводов строки{у меня = 2}).

~FoX~

Дата 20.11.2009, 13:22 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

[offtop]И все таки я был первый smile

[/offtop]

--------------------

…множественность никогда не следует полагать без необходимости…

Canada

Дата 20.11.2009, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет

Всем огромное спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »