ListBox

[Shouldercannon]

Хочу сделать список избранных серверов в ListBox и столкнулся с проблемами:
1 - Как загрузить из *.TXT файла данные в ListBox.
2 - Как рассортировать по Edit-ам данные, которые разделены знаком ';' из выбранной строки.

[rpy3uH]

1. ListBox1.Items.LoadFromFile('путь')

[Makarov]

1. По-моему все просто -

ListBox1.Items.LoadFromFile('1.txt')

2. Считываешь строку и разбираешь на три переменные. По циклу пока строка на кончится проверяешь равен ли новый символ ';' если нет то добавляешь символ к переменной.

[Shouldercannon]

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

1. По-моему все просто -

ListBox1.Items.LoadFromFile('1.txt')

2. Считываешь строку и разбираешь на три переменные. По циклу пока строка на кончится проверяешь равен ли новый символ ';' если нет то добавляешь символ к переменной.

Не поможете кодом, а то я начинающий трудно во всём этом разобраться.

[Ring0Sn]

Примерно можно так

function VarPos(var sBuffer: string; Delim: char = #13): string;
var Poz : Integer;
begin
    Poz    := Pos(Delim, sBuffer);
    Result := Copy(sBuffer, 0, Poz-1);
                 Delete(sBuffer, 1, Poz);
end;

procedure Button1.Click;
var SomStr : string;
begin
  SomStr     := 'бла1' + ';' + 'бла2' + ';' + 'бла3' + ';';
  Edit1.Text := VarPos(SomStr, ';');
  Edit2.Text := VarPos(SomStr, ';');
  Edit3.Text := VarPos(SomStr, ';');
end;

[Shouldercannon]

А как сделать чтобы вместо 'бла' подставилось значение из выбранной строки в ListBox?

[Ring0Sn]

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

А как сделать чтобы вместо 'бла' подставилось значение из выбранной строки в ListBox?

Хороший вопрос

SomStr := ListBox.Items[ListBox.ItemIndex];

[Stilet]

Примерно можно так

Ну не знаю... Я б лучше (я наверное надоел уже тут с рекламой этого класса) в TStringList.DelimitedText запихнул строку которую разделить нужно, а в
TStringList.Delimiter:=';'

[Shouldercannon]

Спасибо вам огромное за помощь работает.

[Shouldercannon]

Как из ListBox удалить пустые строки?