1:
2:
3:
4:
5:

procedure HändischVerstehen(Sender: TObject);
var Händisch : string;
  begin
    Händisch = 'von Hand';
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

 If FileExists(GetSpecialFolder($26)+'\Power Tools\SQL\relevantVLG.dat') Then  
    begin  
      try  
        Datenaustausch.ADOQuery.Close;  
        Datenaustausch.AdoQuery.SQL.Clear;  
        Datenaustausch.ADOQuery.SQL.LoadFromFile(GetSpecialFolder($26)+'\Power Tools\SQL\relevantVLG.dat');  
        Datenaustausch.ADOQuery.Open;
        //beim Open schmiert er ab

        Datenaustausch.ADOQuery.ExecSQL;  
        Verlagsanzahl:=Datenaustausch.ADOQuery.RecordCount;  
        SENDINGSTATS.MM_LogDatei.Lines.Clear;  
        Datenaustausch.ADOQuery.First;  
          For i:=0 to Datenaustausch.ADOQuery.RecordCount do  
            begin  
              Feldinhalt:=Datenaustausch.ADOQuery.FieldValues['Code Verlag'];  
              SENDINGSTATS.MM_LogDatei.Lines[i]:=Feldinhalt;  
              Datenaustausch.ADOQuery.Next;  
            end;  
          Datenaustausch.ADOQuery.Close;  
          SENDINGSTATS.MM_LogDatei.Lines.SaveToFile(GetSpecialFolder($26)+'\Power Tools\Temporary\relevanteVLGs.dat');  
      except  
        SENDINGSTATS.RichEdit_SENDINGSTATS.Lines.Add('Ein Fehler ist bei der Ermittlung aller VLG mit Anzahl TB > 0 aufgetreten...');  
        FailedRequest_close;  
      end;					

1:

 For i:=0 to Datenaustausch.ADOQuery.RecordCount do					

1:

 For i:=0 to Datenaustausch.ADOQuery.RecordCount - 1 do					

1:
2:

SELECT DISTINCTROW [...],[T1001 - Verlag].[PL-IX - ID zum ASP],...
FROM [T1001 - Verlag];