вытащить нужные символы из строки String

[impeee]

есть строка вида A;;B;;C;;D;

A, B, C, D содержит заранее неизвестное количество символов.
Как "выдернуть" A B C D и записать их по отдельности, например, в четыре Label ?

час сижу, и не могу ничего придумать (( моя самооценка на нуле(

[doktor255]

var TS: TStringList;
begin
TS:= TStringList.Create;
TS.Delemiter := ';';
TS.DelimitedText := s;
ShowMessage(TS[0]);
ShowMessage(TS[1]);
ShowMessage(TS[2]);
ShowMessage(TS[3]);
TS.Free;

Работает для строки вида A;B;C;D;
Для твоего случая можно использовать функции pos, copy, или поменять ;; на ; через ReplaceStr, и применить метод указанный выше.

[impeee]

Сообщение от doktor255

var TS: TStringList;
begin
TS:= TStringList.Create;
TS.Delemiter := ';';
TS.DelimitedText := s;
ShowMessage(TS[0]);
ShowMessage(TS[1]);
ShowMessage(TS[2]);
ShowMessage(TS[3]);
TS.Free;

Работает для строки вида A;B;C;D;
Для твоего случая можно использовать функции pos, copy, иди поменять ;; на ; через ReplaceStr, и применить метод указанный выше.

спасибо большое!