Forum: Object-Pascal / Delphi-Language
Delphi
by whiteshark,
6. Mär 2005
Moin Jungs!
Ich wollte eigendlich nicht, dass ihr euch wegen mir in die Haare bekommt! Aber trotzdem danke für die vielen Antworten! :thumb:
Forum: Object-Pascal / Delphi-Language
Delphi
by whiteshark,
5. Mär 2005
function bubble (var a:array of integer):integer;
var j,w,laenge:integer;
begin
laenge:=form1.Memo1.Lines.Count;
//setlength(a, laenge);
for j:=laenge downto 1 do
begin
for w:=2 to j do
begin
if (a>a) then vertausch(a,a);
Forum: Object-Pascal / Delphi-Language
Delphi
by whiteshark,
5. Mär 2005
@Dax: Die Zahlen aus einer MemoBox einlesen.
@Matze: der gleiche Fehler kommt auch, wenn ich Zahlen einsetze.
Forum: Object-Pascal / Delphi-Language
Delphi
by whiteshark,
5. Mär 2005
Ein bisschen Quelltext:
procedure TForm1.InsertButtonClick(Sender: TObject);
var a:array of integer;
var voninsert, bisinsert:cardinal;
begin
laenge:=memo1.lines.count;
setlength(a,laenge);
ein(a);
voninsert:=GetTickCount;
insert(a);
Forum: Object-Pascal / Delphi-Language
Delphi
by whiteshark,
5. Mär 2005
Moin Leute,
ich stehe wieder vor einem Problem. Wie kann ich die Zeit einer Function stoppen ohne die Function GetTickCount? Wenn ich GetTickCount aufrufe, bringt der Rechner immer die Fehlermeldung "ungültiger Zeigeroperation".