StringList, ListBox, Разделитель

Общие вопросы программирования, алгоритмы и т.п.

Модератор: Модераторы

StringList, ListBox, Разделитель

Сообщение maksmkv » 22.02.2019 13:00:04

По поиску на форуме ответа не нашел (((

Решил использовать 2 ListBox и файл с разделителем. Но опять что-то не идет.
В общем есть файл вида :
......
Имя1 | url1
Имя2 | url2
Имя3 | url3
......

Есть 2 ListBox - 1-й содержит имя 2-й невидим и содержит url

Как прочитать файл с разделителем? На delphiworld ясного ответа тоже не нашел (.
maksmkv
новенький
 
Сообщения: 22
Зарегистрирован: 29.08.2013 23:58:50

Re: StringList, ListBox, Разделитель

Сообщение wadman » 22.02.2019 13:42:15

Придется немного попрограммировать. Подсказка: TStrings.NameValueSeparator, .Names, .Values.
wadman
постоялец
 
Сообщения: 122
Зарегистрирован: 18.10.2016 15:54:28

Re: StringList, ListBox, Разделитель

Сообщение maksmkv » 22.02.2019 14:40:54

wadman писал(а):Придется немного попрограммировать. Подсказка: TStrings.NameValueSeparator, .Names, .Values.



Сделал, но почему -то только 1-я строка вставляется (((

Код: Выделить всё
var
  SL: TStringList;
  Temp: string;
  i: Integer;
  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin
      SL := TStringList.Create;
      SL.LoadFromFile(OpenDialog1.FileName);
      SL.Delimiter := '|';
      SL.QuoteChar := '"';
      SL.StrictDelimiter := True;
      SL.DelimitedText :=SL.Text;

    for i := 0 to SL.Count - 1 do begin
    ListBox2.Items.Add(SL.Names[i]);
    ListBox3.Items.Add(SL.ValueFromIndex[i]);
    end;
    end;
  end;
maksmkv
новенький
 
Сообщения: 22
Зарегистрирован: 29.08.2013 23:58:50

Re: StringList, ListBox, Разделитель

Сообщение wadman » 22.02.2019 15:00:33

maksmkv писал(а):      SL.Delimiter := '|';
      SL.QuoteChar := '"';
      SL.StrictDelimiter := True;
      SL.DelimitedText :=SL.Text;

Вот не было такого в подсказке. :)
wadman
постоялец
 
Сообщения: 122
Зарегистрирован: 18.10.2016 15:54:28

Re: StringList, ListBox, Разделитель

Сообщение maksmkv » 22.02.2019 15:16:00

wadman писал(а):
maksmkv писал(а):      SL.Delimiter := '|';
      SL.QuoteChar := '"';
      SL.StrictDelimiter := True;
      SL.DelimitedText :=SL.Text;

Вот не было такого в подсказке. :)



Уже все сделал , СПАСИБО
maksmkv
новенький
 
Сообщения: 22
Зарегистрирован: 29.08.2013 23:58:50


Вернуться в Общее

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 20

Рейтинг@Mail.ru