Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi "Delete" funktioniert nicht (https://www.delphipraxis.net/142176-delete-funktioniert-nicht.html)

NeruvonoS 23. Okt 2009 09:30

Re: "Delete" funktioniert nicht
 
Das Problem dabei ist, dass ich schon nen 1100 Zeilen langen Quellcode habe.
Da alle ersetzen für einen Test würde es glaub ich nur unübersichtlicher erscheinen lassen.
Vor allem da auch andere Captions mit Name oder Namen benannt sind. (die stören zwar nicht, aber dann sind die zum neuen Variablennamen nicht mehr gleich -> folge unübersichtlich... dabei geht es doch bisher noch :( )
Und es ist ja noch nichteinmal gesagt dass es daran liegt. ich probiers nochmal mit dem auslagern in nen anderen String. Dann sollte man es ja merken


So @Uwe:
Mein Array[x].Name ist IMMER mit 20 Zeichen belegt.
Ansonsten seh ich noch keinen Unterschied zu meinem QC

NeruvonoS 23. Okt 2009 09:35

Re: "Delete" funktioniert nicht
 
ALSO
das programm läuft.
das macht doch echt kein spaß, warum gibt denn Delete keinen String wieder aus?
Grummel
nagut danke trotzdem euch beiden

Grüße
NeruvonoS

Progman 23. Okt 2009 09:40

Re: "Delete" funktioniert nicht
 
Zitat:

Zitat von NeruvonoS
....warum gibt denn Delete keinen String wieder aus?.....

Delete ist nun mal keine Function sondern eine Procedure und ändert nur die übergebene String-Variable.

Uwe Raabe 23. Okt 2009 09:56

Re: "Delete" funktioniert nicht
 
Zitat:

Zitat von NeruvonoS
Mein Array[x].Name ist IMMER mit 20 Zeichen belegt.

Und was willst du damit sagen? Alles was wir (glauben zu) wissen ist, daß die ersten beiden Zeichen Blanks sind. Weiterhin "vermuten" wir, daß das dritte Zeichen kein Blank ist. Aber können wir auch davon ausgehen, daß immer ein dritter Blank enthalten ist?

Selbst wenn deine Daten immer gewissen Regeln genügen, ist es kein Luxus, das Einhalten dieser Regeln auch zu überprüfen. Ein gutes Hilfsmittel dazu sind Assertions.

NeruvonoS 23. Okt 2009 10:33

Re: "Delete" funktioniert nicht
 
Zitat:

Zitat von Uwe Raabe
Assertions

Was ist das?

alzaimar 23. Okt 2009 10:34

Re: "Delete" funktioniert nicht
 
Zitat:

Zitat von NeruvonoS
Das Problem dabei ist, dass ich schon nen 1100 Zeilen langen Quellcode habe.
Da alle ersetzen für einen Test würde es glaub ich nur unübersichtlicher erscheinen lassen.

Du verwendest also 100x den gleichen unübersichtlichen und fehleranfälligen Code?
Hast Du schon mal etwas von Refactoring gehört?

Sir Rufo 23. Okt 2009 10:44

Re: "Delete" funktioniert nicht
 
Zitat:

Zitat von NeruvonoS
ALSO
das programm läuft.
das macht doch echt kein spaß, warum gibt denn Delete keinen String wieder aus?
Grummel
nagut danke trotzdem euch beiden

Grüße
NeruvonoS

Wat macht ihr denn hier für ein Geschi**e um die Funktionalität von Delete.
Wenn die gewünschte function/procedure nicht ganz das macht, was sie soll,
dann definier einfach deine eigene:
Delphi-Quellcode:
function DeleteStr( const s : string; Index, Count : integer ) : string;
begin
  Result := s;
  Delete( Result, Index, Count );
end;
Jetzt hast du eine function, die den Ursprungs-String nicht ändert und einen String zurück liefert.

cu

Oliver

PS: Das ganze Trara um 4 Zeilen Code :mrgreen:

NeruvonoS 23. Okt 2009 11:59

Re: "Delete" funktioniert nicht
 
Zitat:

Zitat von alzaimar
Hast Du schon mal etwas von Refactoring gehört?

Was zur Hölle?

Eieiei, kommt doch mal alle runter :)
Ich werd hier mit Begriffen zugeworfen...
Ich bin kein verrückter der einfach mal so ne Sprache lernt und sich mit allem auskennt, ich programmiere zum Spaß. Ist doch wohl klar, dass ich wahrscheinlich nicht sauber arbeite und ich wette schon fast mein QC 25% Zeilen zuviel hat, nur wegen unnützen kram.
Ich habe nichts gegen Kritik oder Vorschläge,
aber bitte, wenn ihr iwelche Begriffe nuzt die nicht jeder automatisch kennt, beschreibt sie bitte.

Danke

Uwe Raabe 23. Okt 2009 11:59

Re: "Delete" funktioniert nicht
 
Zitat:

Zitat von NeruvonoS
Zitat:

Zitat von Uwe Raabe
Assertions

Was ist das?

Fragen zu Assert


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz