EMS Export WIzard - Beschriftung

[wschrabi]

Habs schon gefunden:

Code:

  MyQuery3.SQL.Clear;
  MyQuery3.SQL.Add('select mednamekurz  from medparameter;');
  MyQuery3.Execute;

  QExport4Dialog1.Captions.Clear;
  QExport4Dialog1.Captions.Add('Field0=Zeile' );
  QExport4Dialog1.Captions.Add('Field1=Befund-Nr' );
  QExport4Dialog1.Captions.Add('Field2=Patientenname' );
  iSPalte:= 1;
  while not(MyQuery3.Eof) do
    begin
    QExport4Dialog1.Captions.Add('Field'+IntTOStr(iSpalte+infofeldzahl)+'='+MyQuery3.FieldValues['mednamekurz'] );
    MyQuery3.Next;
    inc(iSpalte);
    end;