Deutsches Lazarusforum

corpsman hat geschrieben:mir ist das zugegeben zu viel Code zum durchlesen, aber evtl hilft dir das weiter.

Ja es ist wirklich viel Code
Das Programm kenne ich schon habe es bei Google gefunden, kann mir aber nicht wirklich weiterhelfen.
Aber trotzdem danke für deine Mühe

Ich habe für die Schule versucht den Dijkstra-Algorithmus zu programmieren, doch bin ich mit meinem Latein am Ende.
Ich kann eine Adjazenzmatrix erstellen. Der Graph ist als Klasse definiert und der Algorithmus sieht wie folgt aus:
function TGraph.Dijkstra(Startknoten : integer) : TWeg;
var ...

Gibt es eine Art Listbox mit Spalten und wie kann man diese anwenden? Ich habe leider nichts finden können, die Suche hat auch nichts ergeben.
Hoffentlich kann mir jemand behilflich sein. Schon mal vielen Dank im Voraus.

Nochmal zu GetTickCount. Leider sind meine Sortieralgorithmen so schnell, dass nur 0-1 ms als Ergebnis rauskommen. Kann man es nicht noch präziser errechnen??

EDIT: Ich habe jetzt EpikTimer gefunden, der berechnet alles noch genauer.

theo hat geschrieben:Das einfachste ist Montas Vorschlag:

Code: Alles auswählen

uses LCLIntf
....
var Tick:Cardinal;
...
Tick:=GetTickCount;
 
//Tu was 
 
Caption:=inttostr(GetTickCount-Tick);

Danke es hat so funktioniert, und danke an Monta

@marcov,
leider funktioniert es nicht so, denn die Zeit wird nicht in Millisekunden ausgegeben sondern als Uhrzeit 00:00:00.

@Jochen,
ich kriege beim Kompilieren immer die Fehlermeldung, dass der identifier TStopWatch nicht bekannt ist, ich habe aber Stopwatch.pas in das Projekt eingefügt.

Liebe Forenuser!

Ich habe verschiedene Sortieralgorithmen programmiert und nun möchte ich nach Vergleich der Komplexität, gerne die arbeitende Rechendauer ausrechnen. Ich habe schon Ansätze programmiert doch leider funktioniert es nicht so, wie ich es will. Meine Gedanken:

Zuerst wird die Zeit1 ...

Targion hat geschrieben:Welches PPA?
Was passiert, nachdem du mit

Code: Alles auswählen

sudo rm -rf ~/.lazarus

die alten Einstellungen gelöscht hast?

Ja, danke das klappt.

Eine Variante, bei der man nicht viel nachdenken muss: ;-)

function RandomSort(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -1 + Random(3);
end;

procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
begin
Randomize;
sl:=TStringList.create;
sl.Assign ...

Targion hat geschrieben:Wie hast du Lazarus denn installiert?

PPA in der sources.list hinzufügen und ein apt-get update bzw. upgrade

Schönen guten Tag!
Ich habe eine Listbox mit vielen Items, die ich jetzt zufällig mischen möchte, also dass jedes Item an einem anderen ItemIndex ist und andere Nachbarn hat. ;) Also einfach die Items mixen. Leider fällt mir nicht recht ein, wie ich das machen könnte. :( Ich dachte vielleicht an ein ...

Kompiliere das Teil mal mit der aktuellen stabilen Lazarus-Version 0.9.28-2. Dann sollte sich das Problem mit der GTK2-GUI erledigt haben.
Das neue Lazarus gibt mir nur folgenden Fehler:
Hint: Start of reading config file /etc/fpc.cfg
Hint: End of reading config file /etc/fpc.cfg
Free Pascal ...

Ich habe mein Programm hier veröffentlicht:

• http://forum.ubuntuusers.de/topic/wsg-w ... n-program/

Es funktioniert nur auf Ubuntu Karmic oder neuer

Du musst halt wissen, welche Libs dein Programm verwendet. Mein Tool untersucht die Binaries mit ldd, extrahiert dann die Bibliotheksnamen und generiert dann mittels einiger anderer Tools eine Liste an Paketen, in denen diese libs vorkommen. Daraus werden dann die sinnvollsten Treffer ausgewählt ...

Targion, wie hast du das denn umgewandelt? Kann ich das nicht auch einfach selbst machen?