Страница 1 из 1

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

СообщениеДобавлено: 22.02.2019 13:00:04
maksmkv
По поиску на форуме ответа не нашел (((

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

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

Как прочитать файл с разделителем? На delphiworld ясного ответа тоже не нашел (.

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

СообщениеДобавлено: 22.02.2019 13:42:15
wadman
Придется немного попрограммировать. Подсказка: TStrings.NameValueSeparator, .Names, .Values.

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

СообщениеДобавлено: 22.02.2019 14:40:54
maksmkv
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;

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

СообщениеДобавлено: 22.02.2019 15:00:33
wadman
maksmkv писал(а):      SL.Delimiter := '|';
      SL.QuoteChar := '"';
      SL.StrictDelimiter := True;
      SL.DelimitedText :=SL.Text;

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

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

СообщениеДобавлено: 22.02.2019 15:16:00
maksmkv
wadman писал(а):
maksmkv писал(а):      SL.Delimiter := '|';
      SL.QuoteChar := '"';
      SL.StrictDelimiter := True;
      SL.DelimitedText :=SL.Text;

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



Уже все сделал , СПАСИБО