reading and writting to the same text file !!

Hi

I am trying to write 2 text files from 1 text file to populate a combobox and to then populate a edit box on change of the combo box anyway the problem I have is I cant seem to write to the combobox

here is the code any help would be much apprexciated

procedure TForm1.startup(sender: TObject);
var
SomeTxtFile : TextFile;
anotherfile :TextFile;
yetanotherfile :Textfile;
parseline : string;
begin
deletefile('c:\impex\desc.txt');


AssignFile(SomeTxtFile, 'c:\impex\concess.asc');
AssignFile(anotherFile, 'c:\impex\style.txt');
AssignFile(yetanotherFile, 'c:\impex\desc.txt');
Reset(SomeTxtFile);

while not EOF(SomeTxtFile) do begin
ReadLn(SomeTxtFile, parseline);
if copy(parseline,31,1) = 'Y' then begin
WriteLn(anotherfile,parseline,1,5);
WriteLn(yetanotherfile,parseline,1,30);
end;
end;
CloseFile(SomeTxtFile);
CloseFile(anotherfile);
CloseFile(yetanotherfile);
Combobox1.Text := 'anotherfile';
end;

You're doing things the wrong way. To add items to a Combobox's menu, simply do this:


In your case, all you have to do is do a ComboBox.Items.Add(parseline); inside your while loop. There's no need to write an intermediate file at all.

Thanks works a treat now need to populate a Tedit with part of the parseline info I choose in the combo box.

This is very easy too. Note that all TEdit components have a Text property that sets/gets the value of the text in the box. The ComboBox also has a Text property. All you have to do is wire up the ComboBox's OnChange event, so that it changes the text in the text box, whenever the ComboBox's text changes.

Thanks thats great and I could already do that however I only want it to put "part" of the Parse line and not the part I have already put in the combobox

Thanks

ok thanks have sorted that out now I have a barcode componant from nan-soft on this program ans am trying to print using it

I have a demo version of it however this is in delphi 7 and uses components which come with 7.

Has anyone used this in delphi 5 and if so how did you print

Thanks