Delphi: Search Method -- Memo.Lines to Binary Record file
Posted on 2007-04-07
Hi everyone, you'll excuse my poor programming skills but i plane to import some computernames and there server names into my binary file already created.
If computer name already exists in the binary record, then it pops up something. Else, it Add's it to the Binary file with it's appropriate server.
I wanted (or open to use something else than a Memo Text box) to use Memo text to copy/paste my text file, then execute the Search routine but my code is so poor that i came here :)
Exemple of Data i want to import into my Record file:
Idea of the Code...
type Elements =record
DBase : Elements;
f : file of Elements;
procedure TForm4.Button1Click(Sender: TObject);
for n:=0 to memo1.Lines.count -1 do
with Dbase do
While not eof(f) do
showmessage(Memo1.Lines[n] +' PC not Found!! !');
until ( memo1.Lines[n] = PC_Name );
showmessage('PC Found ' +Memo1.Lines[n]+'....'+inttostr(n));
showmessage('Exit of the file');
If you guys got any other search method it yould be so much apreciated. Thank you.