[Scenica]

спасиба!) мой план почти удался! но вылетела ошибка could not convert variant of type null into type string
вот код. чур, над его нескладностью не смеяться

Код:

var sr: TSearchRec;
i,q:integer;
s,str,word,wordd:string;
begin
ListBox1.Items.Clear;
if FindFirst('C:\sdo\files\*.dbf', faAnyFile, sr) = 0
then begin repeat ListBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0; FindClose(sr);
end;
table1.Active:=true;
for i:= 0 to Listbox1.items.count-1 do
begin
str:=Listbox1.items[i];
str:='';
word:=Copy(str,1,Pos('_',str)-1);
wordd:=Copy(str,8,Pos('_',str)+3);
    table1.last;
    Table1.insert;
    Table1.FieldByName('ops').Value:=word;
    Table1.FieldByName('data').Value:=wordd;
    Table1.Post;
  end;

Admin: Пользуемся тегами!