Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
16. Dez 2012
UP's sind wohl nicht gern gesehen, jedoch muss mein Quicksort morgen früh laufen, und es klappt nie für den ersten Wert. :/
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
15. Dez 2012
Ich habe nun ein weiteres Problem.
Und zwar wollte ich zum Sortieren von Resultaten quicksort benutzen.
Diebezüglich mein Code:
procedure switch(var a,b:integer);
var aux:integer;
begin
aux:=a;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
14. Dez 2012
ES GEHT!
Ich kann es nicht glauben, wie kann das sein? Das kommt doch eigentlich genau auf das raus, was ich mit copy versucht hatte?
Du kannst dir nicht vorstellen wie dankbar ich dir bin! :)
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
14. Dez 2012
Ein Mal habe ich es mit:
7: begin
i:=0;
Excel.ActiveWorkbook.Sheets.Select;
index:=index7;
while (NOT VarIsEmpty(Excel.Cells.Value)) and (Excel.Cells.Value<>'') do
begin
ComboBox4.Items.Add(Excel.Cells.Value+' '+Excel.Cells.Value);
inc(i);
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
14. Dez 2012
Danke für den Link!
Ich verfüge leider nicht über die Delphi-Hilfe, da ich eine sehr alte Delphi-Version besitze und deren Hilfe nur bis Win XP geladen/benutzt werden kann. Und bisher war ich ganz zufrieden mit dem delphibasics-Angebot.
Alles klar, verstehe.
Sobald ich zu Hause bin, werde ich es dann mit VarIsEmpty(vName) versuchen!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
14. Dez 2012
@ GHorn: Der Link behandelt doch nur Strings, und es scheint mir als ob gerade die Abwesenheit eines Strings mein Problem wäre. Oder irre ich?
@ nahpets: Mit EmptyParam anstelle von '' bekomme ich ebenfalls die Fehlermeldung 'Invalid variant operation', und zusàtzlich funktionniert die Prozedur nicht nach einem weiteren Exekutieren, anders als mit ''.
Ich habe auch versucht mit hilfe von...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
13. Dez 2012
Hallo!
Ja, der geringstmöglichste index-Wert beträgt 6.
Edit: Ich glaube http://www.delphipraxis.net/140578-leere-excel-zelle.html hier hatte wer ein ähnliches/das selbe Problem. Wenn ich die erwähnten Zeichen (‘’) anstatt von '' in die while-Schleife einfüge, gibt mir Delphi die Fehlermeldung (bereits vor dem Starten des Programmes) : "Illegal character in input file". Was hat es damit...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
13. Dez 2012
Ich dachte er hätte mit seinem Vorschlag eine ähnliche Methode wie die von mir aufgezählten gemeint (zB an bestimmten Stellen SendMessage('') einbauen). Was eine Haltestelle ist, ist mir unbekannt.
Jedoch habe ich wie von dir erwähnt mich mit F7 durchgeklickt, und die Fehlermeldung kam, nach mehrfachem Durchgehen bei:
while Excel.Cells.Value <> '' do
Kann es sein, dass die Schleife...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
13. Dez 2012
Wie gesagt, ich hab es auch schon mit und ohne .Value versucht und weder noch hat mir zum Erfolg verholfen.
Ich war bestimmt schon 2 Stunden damit beschäftigt Teile in {} zu setzen oder SendMessage(' ') an mehreren Stellen einzubauen, komischerweiser bekomme ich jedoch immer eine Fehlermeldung.
Danke für den Tip mit Range, aber da ich nun schon recht viel geschrieben habe, ändere ich dies...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
12. Dez 2012
Hallo zusammen.
Ich bin gerade dabei ein Programm zu schreiben, das automatisch Resultate eines Sport-Turniers an meiner Schule in eine Excel-Tabelle einträgt.
Da das Programm bereits ziemlich lang ist, poste ich nur den Teil, in dem vermutlich der Fehler liegen sollte:
var
Form1: TForm1;