textdateien in "TStringGrid"

[chrisw]

Ich würde das etwa so machen !

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var Datei  : TStringList;
    i,j    : Integer;
    tempString : String;
    emptyCol   : Boolean;
begin
  Datei := TStringList.Create;
  Datei.LoadFromFile('nlist.txt');
  i := 0;
  while i < Datei.Count -1 do  //durch die ganze Datei
    if pos('User: ',Datei[i]) <> 0 then  // wenn String "User: " gefunden
    begin
      emptyCol := False;  //bisher ncoh keine Leerstelle
      for j := 0 to 5 do  //die nächsten 6 Zeilen
      begin
        tempString := Datei[i]; //Zeile kopieren nach tempString
        case j of
            0 : delete(tempString,1,6);  //User
            1 : delete(tempString,1,12); //Last name
            2 : delete(tempString,1,13); //Given name
            3 : begin                    //empty Column
                  tempString :=  '';
                  emptycol := True;
                end;
            4 : delete(tempString,1,2); //network kind
            5 : delete(tempString,1,14);//network address
         end;
          if (tempString <> '') then
          begin
            if not emptycol then StringGrid1.cols[j].Add(tempString) // 1-3 column
            else StringGrid1.cols[j-1].Add(tempString);       //5 + 6 column
            StringGrid1.RowCount := StringGrid1.RowCount +1;  //redim Stringgrid
          end;
          inc(i);
      end;
    end else inc(i);
  Datei.Free;
end;