ZB so:



tabelle.first;

while not tabelle.eof do begin

if Copy(tabelle.fieldByName('Feld1').AsString,1,1) = 'D'

then ShowMessage('Feld2: ' + tabelle.fieldByName('Feld2').AsString);

tabelle.Next;

end;



bye,

Helmut

geschrieben von hwoess , 28.01.2006, 11:45 Uhr , 20 mal gelesen