ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
var ER:tstrings;
    i,k: integer;
    q: boolean;
    l,m,n: string;

begin
er:=TStringList.Create;
er.LoadFromFile('1.txt');
    for i:=0 to er.Count - 1 do
    begin
       l:= er.Strings[i];
       m:=''; n:='';
       k:=1;
       q:= false;
        while k <= length(l)   do
        begin
          if (l[k] = ';')
          then begin
            while  k<= length(l) do
            begin
             inc(k);
             n:= n + l[k];
            end;
            q:= true;
          end
          else begin
           if q =  true then exit;
           m:= m + l[k];
          inc(k);
          end
        end;
         memo1.Lines.Add(m+'   '+n);
      end;
er.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F             : TextFile;
  S             : string;
  UIN, PassWord : string;
begin
  AssignFile (F, 'C:\1.txt');
  {$I-}
  Reset (F);
  {$I+}
  if IOresult = 0 then
  begin
    while not SeekEof (F) do
    begin
      ReadLn (F, S);
      UIN      := Trim (Copy (S, 1, Pos (';', S)-1));
      PassWord := Trim (Copy (S, Pos (';', S)+1, Length (S)));
      Memo1.Lines.Add (UIN+' - '+PassWord);
    end;
   CloseFile (F);
  end;
end;