Вывод текста в компонент Label

[aleksandr278]

Подскажите пожалуйста начинающему, есть текстовый документ например 100:200 разделенные двоеточием.
Как можно вывести значение 100 в Label1, а 200 в Label2.
А то я совсем запутался.

[W0LF]

Через Delimited в TStringList подойдет если в разделяемом тексте нету пробелов, для 100:200 подойдет...

var
  T:TStringList; // обьявляем TStringList в переменной T
begin
  T:=TStringList.Create; // создаем TStringList
  T.LoadFromFile('d:\1.txt'); // файл, в котором находиться "100:200"
  T.Delimiter := ':'; // разделитель
  T.DelimitedText := T.Text; // разделяем текст и получаем куски
  Label1.Caption:=T[0]; // первый кусок в Label1
  label2.Caption:=T[1]; // второй кусок в Label2
  T.Free; // освобождаем TStringList

Через Copy/Pos, пойдет и для "100:200" (текста без пробела) и для текста который имеет пробел...

var
  T:TStringList; // обьявляем TStringList в переменной T
begin
  T:=TStringList.Create; // создаем TStringList
  T.LoadFromFile('d:\1.txt'); // файл, в котором находиться "100:200"
  Label1.Caption := Copy(T.Text, 1, Pos(':', T.Text) - 1); // первый кусок от 1 символа и до ":"
  Label2.Caption := Copy(T.Text, Pos(':', T.Text) + 1 , Length(T.Text)); // второй кусок от ":" и до конца
  T.Free; // освобождаем TStringList
end;

[aleksandr278]

Все работает отлично. Спасибо.
А если текстовый файл состоит из трех значений и более, то каким способом выводить.
Например в label1 первые два, а в label2 остальное,
И что то у меня не получилось в label3 не чего вывести.

[W0LF]

Непонял, дайти пример записи...

[aleksandr278]

Сам запутался что мне надо.
Надо так: например в файле записано :Имя:100:200:300:400:500 и т.д.
Нужно чтоб в Label1 выводилось имя, в Label2 - 100, с этим я разобрался все работает, теперь надо чтоб в Label3 выводилось в столбик:
Имя
100
200
300
400 и т.д.
Вроде так.
Только Label3 находится на другой форме, в этом же екзе.

[W0LF]

Я так понял ты использовал Delimited...
Что бы вывести всё в столбик надо:

Label3.Caption := T[0] + #13#10 {перевод коретки на новую строчку} +
                        T[1] + #13#10 +
                        .... + #13#10 +
                        T[n];

[aleksandr278]

Огромное спасибо, всё работает.

[Alex2009]

Если у тебя Label3 лежит к примеру на Form2 значит пиши так.
Form2.Label3:="а тут как написанно выше"

[W0LF]

А если количество ":" неизвестно... Допустим 100:200 в файле записано, или 100:200:...:10000, то что бы все части записать в Label3 столбиком, неудобно будет использовать тот способ что я написал раньше) Нужно циклом:

var
  T: TStringList;
  i: integer;
begin
  T := TStringList.Create;
  T.Delimiter := ':';
  T.DelimitedText := T.Text;
  Label3.Caption := '';
  for i:=0 to T.Count - 1 do
    Label3.Caption := Label3.Caption + T[i] + #13#10;
    if i = T.Count -1 then
      Label3.Caption := Label3.Caption + T[i];
  T.Free;
end;

Только не забудь загрузить файл сначала (T.LoadFromFile('d:\1.txt'))...

P.S.: Для модеров: второе сообщение создал из-за того что вечером форум лагает, все кнопки (Цытата, код, форматирование текста) неработают, приходиться писать теги вручную, и в правке сохранение непашет и ну еще кучка мелочей...

P.S.: Для aleksandr278 надеюсь на "+" )

[Kamil04ka]

mojete podskazat' kak sdelat' tak chtoby v label1 vyvodilsya tekst ? ili dlya etogo nujen drugoi komponent ? ya prosto novichek poetomu ne znayu