Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Количество символов TStringList

Автор: Canada 20.11.2009, 12:18

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

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

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

Автор: ~FoX~ 20.11.2009, 13:15

Код


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;

Автор: morpheyushka 20.11.2009, 13:15

Код


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;

Автор: 1000000dollars 20.11.2009, 13:19

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

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

Автор: ~FoX~ 20.11.2009, 13:22

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

[/offtop]

Автор: Canada 20.11.2009, 15:29

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