Ha a lustaság fájna!

Most úgy egyszerre 3 dolgot kéne tennem. :D
1) Aludni, jó nagyot!
2) Programozni, jó sokat!
3) Semmit tenni, nagyon semmit!

procedure TForm1.btn1Click(Sender: TObject);

var

  LoadFile:   TextFile;

  Filen: TFileName;

  tab, R:          string;

  P, x:          Byte;

  s: Integer;

begin

   Filen := 'dict1.txt';

   tab := ',"';

   x := 0;

  if not FileExists(Filen) then begin

    Exit;

  end;

  AssignFile(LoadFile, Filen);

  Reset(LoadFile);

  if EOF(LoadFile) then begin

    CloseFile(LoadFile);

    Exit;

  end;

  try

    while not EOF(LoadFile) do begin

      Readln(LoadFile, R);

      P := Pos(',"',R);

      if p = 0 then begin

       ShowMessage('Rossz file!' + #13 + 'A program biztonsági okokból kilép!');

       Application.Terminate;

       Exit;

       end;

      R := Copy(R, 0, Length(R)-p);

      edt1.Text := R;

//      dbedt2.EditText := R;

      end

  finally

    CloseFile(LoadFile);

end;

Ezzel szenvedek! :) Ez egy text fájlból adatbázisba konvertáló program lesz! Lehet írok még!