Roy,
DELPHI is not the problem, but SQL

Thanks for your help.

Dieter









Roy Lambert <roy.lambert@skynet.co.uk> wrote:

Dieter


I don't know without trying it if Tim's stuff will support nested while loops but I suspect it will. So all you should need is two loops - something
along the lines of

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
b:integer;
begin
a:=1;
while a <= 45 do begin
b:=a+1;
while b <= 45 do begin
 memo1.lines.Add(inttostr(a)+' '+inttostr(b));
 inc(b);
end;
inc(a);
end;
end;

Which I think does what you're after

Until Tim comes up with his debugger its a good idea to try these sorts of things out in Delphi and then translate - at least its a language you're
more familiar with I hope

So the above would translate to something like

PREPARE stmt FROM 'INSERT INTO Zwei(Erste,Zweite) Values (?,?)';

SET ZAHL = 1;

WHILE ZAHL <=45 DO BEGIN
SET ZAHL1 = ZAHL + 1;
WHILE ZAHL1 <= 45 DO BEGIN
    EXECUTE stmt USING ZAHL,ZAHL1;
    SET ZAHL1 = ZAHL1 + 1;
END WHILE;
 SET ZAHL = ZAHL + 1;
END WHILE


Roy Lambert [Team Elevate]

Dieter

>DELPHI is not the problem, but SQL

For me to at present, that's why for something like this I'd get the approach right in Delphi and then convert to SPM.

Roy Lambert [Team Elevate]