Не могу найти простейший исходник разделяющий текст

[Jleksern]

Ищу простейший исходник который бы мог разделить загруженный текст с текстового файла в memo1 и memo2.
То что разделяет текст : (двоеточие) - что до :(двоеточия) пишется в memo1 что после двоеточия в мемо2.

Текстовый файл внутри себя содержит такой текст.

QWERT:12345
EWQRR:SJDKWJAK
FIawIdwa:88w8wwa
AAAAAA:248114

Примерный вид таков.

[Hacker19_90]

while not(Eof(f)) do
begin
  Readln (f, str);
  Memo1.Add(Copy(str, 1, pos(':', str) - 1));
  Memo2.Add(Copy(str, pos(':', str)+1, Length(str) - pos(':', str)))
end;

[Jleksern]

можете пожалуйста в проект завернуть, ото у меня ошибки вылетают (delphi7)

[Serge_Bliznykov]

на кнопку "загрузить TXT"

var ts : TStringList;
  i, k : integer;
  s : string;
begin
  ts := TStringList.Create;
  ts.LoadFromFile('ИмяВашегоФайла.txt');
  Memo1.Lines.Clear;
  Memo2.Lines.Clear;
  for i:=0 to ts.Count-1 do  begin
    s := ts.Strings[i];
    k := Pos(':', s);
    if k >1 then begin
        Memo1.Lines.Append(Copy(s, 1, k-1));
        Memo2.Lines.Append(Copy(s,k+1, Length(s)-k ));
     end;
  end;
  ts.Free;
end;

и всё!

[Jleksern]

Serge_Bliznykov, блин))) Я Вас люблю ))) спасибо большое ))

[Alex11223]

Или можно использовать TStringList NameValueSeparator и Name/Values.

[Jleksern]

а если использовать

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

Или можно использовать TStringList NameValueSeparator и Name/Values.

разница в чем будет проявлять себя ?

[Serge_Bliznykov]

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

а если использовать

разница в чем будет проявлять себя ?

я не проверял (можете это сделать самостоятельно), но я думаю, что в вашем случае разницы не будет.


p.s. не удивлюсь, если в реализации данного подхода внутри лежат те же самые функции POS и COPY
только их использование скрыто (для удобства использования) от программиста

p.s. посмотрел реализацию в TStrings. Там всё ещё хуже, чем я думал. для Name (GetName()) действительно используется AnsiPos,
но для Value ( GetValue() - используется поиск Name перебором всех строк ).

function TStrings.GetValue(const Name: string): string;
var
  I: Integer;
begin
  I := IndexOfName(Name);
  if I >= 0 then
    Result := Copy(Get(I), Length(Name) + 2, MaxInt) else
    Result := '';
end;


function TStrings.IndexOfName(const Name: string): Integer;
var
  P: Integer;
  S: string;
begin
  for Result := 0 to GetCount - 1 do
  begin
    S := Get(Result);
    P := AnsiPos(NameValueSeparator, S);
    if (P <> 0) and (CompareStrings(Copy(S, 1, P - 1), Name) = 0) then Exit;
  end;
  Result := -1;
end;

поэтому, на больших (десятки тысяч строк) списках через NameValueSeparator и Name/Value будет работать ЗНАЧИТЕЛЬНО медленнее!

проверку оставляю на совести сомневающихся!

[Jleksern]

Методам тыка, обнаружил что скорость загрузки из текстового файла в компонент ListBox на много превышает чем с компонентом memo.

По этому решил немного разнообразить и попробовать перевоплатить этот код (с выше) под компонент listbox.

procedure TForm1.Button1Click(Sender: TObject);
var 
ts : TStringList;
  i, k : integer;
  s : string;
  a: integer;
begin
  ts := TStringList.Create;
    if OpenDialog1.Execute then
  ts.LoadFromFile(OpenDialog1.FileName);
  for i:=0 to ts.Count-1 do  begin
    s := ts.Strings[i];
    k := Pos(edit1.Text, s);
    if k >1 then begin
        Memo1.Lines.Append(Copy(s, 1, k-1));
        Memo2.Lines.Append(Copy(s,k+1, Length(s)-k ));
     end;
  end;
  ts.Free;
  a := Memo1.Lines.Count;
  label5.Caption:=IntToStr(a);
end;

У меня конечно же не получилось именно так как оно выполняется с memo.
При указании на listbox оно либо компилировалось и загружало криво либо вообще не загружало текстовый файл.
Прошу о помощи)) Я хз как правильно переделать и не утратить смысл разделения слов из-за символа.

[Serge_Bliznykov]

о! так Вы за скоростью гонетесь?!
тогда попробуйте такой код:

procedure TForm1.Button1Click(Sender: TObject);
var 
  ts, ts1, ts2 : TStringList;
  i, k, CountRec : integer;
  s : string;
  a: integer;
begin
  if OpenDialog1.Execute then begin
     ts := TStringList.Create;
     ts1 := TStringList.Create;
     ts2 := TStringList.Create;
     CountRec := 0;
     ts.LoadFromFile(OpenDialog1.FileName);
     for i:=0 to ts.Count-1 do  begin
        s := ts.Strings[i];
        k := Pos(edit1.Text, s);
        if k >1 then begin
           ts1.Append(Copy(s, 1, k-1));
           ts2.Append(Copy(s,k+1, Length(s)-k ));
           inc(CountRec)
        end;
     end;
     ts.Free;
     Memo1.Lines.Text := ts1.Text;
     Memo2.Lines.Text := ts2.Text;
     ts1.Free;
     ts2.Free;
     label5.Caption:=IntToStr(CountRec);
  end;
end;

если хочется использовать ListBox,
тогда замените строчки
Memo1.Lines.Text := ts1.Text;
Memo2.Lines.Text := ts2.Text;
на

     ListBox1.Items.Text := ts1.Text;
     ListBox2.Items.Text := ts2.Text;