Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. JanChlpik

    Search result to Tstrings(problem)

    Thanks for usefull tips. Indent options are in Tools>options>editor options>source options(I have default options and not sure what to change) I have finished subdirectory search part today and everything works fine.
  2. JanChlpik

    Search result to Tstrings(problem)

    Thanks CADTenchy isnt here full article about freeing objects? It works fine as it is little program Btw isnt if freed automatically by closing form?
  3. JanChlpik

    Search result to Tstrings(problem)

    Thanks. Now I got it working. Well the problem was the filelist was declared in private. I moved it to var(Where Tform is) private { Private declarations } public { Public declarations } end; var Form1: TForm1; Filelist: TStrings; implementation Sorry but Delphi does not...
  4. JanChlpik

    Search result to Tstrings(problem)

    Filelist is defined as private variable. If I define it in procedure itself it does not work same if I create it. However it works find with memo. Possibly tstrings are conflicting somehow. procedure TForm1.Open1(Sender: TObject); var Path : string; var searchResult : TSearchRec; begin if...
  5. JanChlpik

    Search result to Tstrings(problem)

    var Filelist: TStrings;//List of files var Path : string;//file directory var searchResult : TSearchRec;//search result Everything is working for me except getting the file path to file list. I can run it, but this line always causes error. Filelist.Add(Path +'\'+searchResult.name);
  6. JanChlpik

    Removing/Adding file Header

    Thanks it works fine, now just need to create new file and use it(instead using existing one). Well dont understand how exactly amount_read works, but thats minor problem. Thanks for solution I think can do the rest myself.
  7. JanChlpik

    Removing/Adding file Header

    procedure TForm1.Button1Click(Sender: TObject); var i: integer; var NewFileName: string; var MyFile: File; var unit1 : byte; begin Memo1.Clear; {$I+} For i:= 0 to Filelist.Count - 1 do begin AssignFile(Myfile, Filelist[i]); Reset(Myfile,1); Blockwrite(MyFile, unit1,20)...
  8. JanChlpik

    Removing/Adding file Header

    var myfile, Newfile: File; unit1: array[1..20] of byte; begin AssignFile(myfile, 'test.dat'); reset(myfile, 1); blockread(myfile, unit1, sizeof(unit1)); CloseFile(myfile); end. K I use block read, but I want to skip first block and read and write the rest to new file. Sorry for...
  9. JanChlpik

    Removing/Adding file Header

    Well I need to remove header, which is 20x4bytes and then place it back. But cant find the right command
  10. JanChlpik

    Removing/Adding file Header

    Hi I have nearly finished converting program, but what looked easy is impossible to finish for me. Its image(picture) file btw First I assign file(that works fine) AssignFile(Myfile, Filelist[i]); If I managed to convert it to string I would simply type Delete(Myfile,1,20) But I did not find...

Part and Inventory Search

Back
Top