Textdatei bis zum ersten Komma in ListBox laden

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject); 
var 
  sl: TStringList; 
  dataFile : TextFile;
  s : String;
  odd : Boolean;

begin 

  sl:=TStringList.Create; 

  OpenDialog1.Execute; 
  Edit3.Text:= Opendialog1.FileName; 

  AssignFile(dataFile,OpenDialog1.FileName);
  {$I-}
  Reset(dataFile);
  {$I+}
  odd:=true;
  if ioresult = 0 then
    begin
      While not eof(dataFile) DO
        begin
          ReadLn(dataFile,s);
          if odd then
            begin
              s:=copy(s,1,pos(s,',')-1); 
              sl.add(s); 
            end;

          odd:= not odd;

        end; //while
      end; // if ioresult

  CloseFile(dataFile);
  // sl freigeben, wenn sie nit mehr benutzt wird

end;

ungetestet

Grüße
Klaus

[edit] odd := not odd versetzt [/edit]