Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
16. Jun 2009
Gut, Danke nat!
Jetzt funktioniert es.
Ich habe die Dateinamen in Listbox4 schon gekürzt, sodass sie ganz ohne Pfad in die Listbox1 kommen.
Es geht jetzt!
Danke!
-- Somit ist das Problem gelöst und kann daher beendet werden. --
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
12. Jun 2009
Dann müsstest du einfach mal den gesamten Gesprächsfaden von vorn beginnend lesen, denn da (auf Seite 1) ging es anfangs um einen undefinierten Rückgabewert ...
___________________________________________
Für nat (und alle anderen natürlich auch):
procedure TForm1.dateinamenkurz();
var a,i,j,l:integer;
Pfad,s:string;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
11. Jun 2009
Nun wurde ich aufgefordert, Quelltext zu geben und es antwortet keiner mehr ...
Keiner einen Rat?
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
6. Jun 2009
ie Einträge sind komplett identisch, wie aus meinen vorigen Beiträgen hervor gehen müsste: Ich sagte ja bereits, dass ich einmal Dateien per Drag'n'Drop hineinziehe und dass sie beim zweiten Reinziehen (sprich gleiche Dateien) nicht nochmal hinzugefügt werden ...
Die Dateien werden weiterverarbeitet, und da wäre es dämlich, sie mehrmals zu bearbeiten, weil sie inner Listbox mehrmals stehen ...
...
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
6. Jun 2009
Ich habs jetzt begriffen
//Neue Dateien in Listbox1
for r:=1 to a do
if listbox1.items.indexof(listbox4.items)=-1 then
listbox1.items.add(listbox4.items);
aber es funktioniert immer noch nicht; keine Fehlermeldung aber er fügt gnadenlos hinzu ...
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
6. Jun 2009
IndexOf in der hilfe bei was gucken ...?
TListItems oder wo oder was ....???
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
6. Jun 2009
Habe ja schon geschrieben, egal wie boolean initialisiert wird, in meiner Funktion - habe ich getestet - wird False ausgegeben, wenn nichts definiert wird ...
Bitte nochmal auf meinen vorigen Beitrag eingehen ...
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
6. Jun 2009
Hey!
Habe das erstmal umgesetzt, was jfheins sagte ...
Und auch das von Satty67 verstanden ... Das heißt, Delphi rechnet damit, dass die Liste leer sein kann?
Narrja, es ist ja gut und auch logisch, dass bei leerer Liste keine Schleife durchlaufen wird, denn ich brauche ja nichts abgleichen oder nicht hinzufügen, wenn sie eh leer ist ...
Ob Boolean immer auf false initialisiert wird -...
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
6. Jun 2009
Hi!
@quendolineDD:
<< 1.) Wenn die Schleife nicht durchlaufen wird, wird kein Result gesetzt.
2.) Denk mal darüber nach, was passiert, wenn 0 Elemente in der Listbox sind. Smile
3.) Außerdem gab es doch bei Listbox die Funktion .IndexOf.
Edit:
4.) Dann würde ich lieber eine while- oder repeat-Schleife nehmen, anstatt mit einem break zu arbeiten.
5.) Und das false kannst du...
Forum: Object-Pascal / Delphi-Language
Delphi
by trebor90,
6. Jun 2009
Hallo Delphianer(innen)!
Ich weiß, ich habe schon öfter im Forum Themen zu folgender bekannter Fehlermeldung gehört: "Rückgabewert der Funktion FormX.Funktion könnte undefiniert sein".
Aber ich komme echt nicht weiter - ich zerbreche mir über den paar Zeilen Code schon Wochen den Kopf:
//Dateien des gleichen Pfads schon vorhanden?
function TForm1.schonda(s:string):boolean;
var...