|
Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge
Delphi 10.2 Tokyo Starter
|
Re: Array berechnen
30. Mär 2006, 13:44
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, y: Integer;
begin
y := StrToInt(Edit1.Text);
for i := Low(MyArray) to High(MyArray) do
for j := Low(MyArray) to High(MyArray) do
if MyArray[i] + MyArray[j] = y then
ListBox1.Items.Add(Format('I: %d J: %d', [i, j]));
end;
MfG
freak
Christian 
IT: Schließen Sie bitte das Fenster. User: Die Tür auch? 
i++; // zaehler i um 1 erhoehen
|