AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Quicksort (Ausgabe)

Ein Thema von Trouble_Maker · begonnen am 9. Mär 2004 · letzter Beitrag vom 9. Mär 2004
 
Benutzerbild von Trouble_Maker
Trouble_Maker

Registriert seit: 30. Jan 2003
244 Beiträge
 
Delphi 6 Personal
 
#1

Quicksort (Ausgabe)

  Alt 9. Mär 2004, 19:14
Hiho hab mal wieder ein Problem:

hier meine Source vom Quicksort:
Delphi-Quellcode:
procedure QuickSort();
var i,j,d,r,h1,h2: integer;
    data: array[1..maxelements] of integer;
begin
  i:=d;
  j:=r;
  h1:=data[(i+j) div 2];
  while i<j do begin
    while data[i] < h1 do i:= i+1;
         while data[j] > h1 do j:= j-1;
  end;
  if i<=j then
    begin
      h2:=data[i];
      data[i]:= data[j];
      data[j]:= h2;
      i:= i+1;
      j:= j+1;
    end
  else exit;
  if d<j then Quicksort() else exit;
  if i<r then Quicksort() else exit;

form1.memo1.lines.add(inttostr(data));
end;
Aber jetzt meckert der bei der letzen Zeil!
[Fehler] Unit1.pas(269): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann

hab kA was das zu bedeuten hat, und wie ich jetzt meine sortieren elemente (data) in ein memo schreiben soll ?
kann mir jemand helfen ?

thx

Trouble_Maker


PS: Hab bisher nur wenig erfahrungen mit eigenständigen Prozeduren
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz