Delphi-PRAXiS - Suchergebnisse

AGB · Datenschutz · Impressum

Nützliche Links

• Registrieren

Seite 1 von 20

1

Zeige Ergebnis 1 bis 25 von 500
Die Suche dauerte 0,02 Sekunden. Suchen: Beiträge von: Go2EITS

Forum: Software-Projekte der Mitglieder

29. Apr 2009, 05:26

Antworten: 41

Delphi Formelinterpreter, Programmierbarer Tabellenrechner

Hits: 9.036

Erstellt von Go2EITS

Re: Formelinterpreter, Programmierbarer Tabellenrwchner

Guten Morgen Herr Winter,

vielen Dank, dass Sie uns einen Beitrag für die DP reingestellt haben. Ihr Programm/die Unit braucht nichts zu schlagen, dies ist auch nicht der Sinn dieses Forums....

Forum: Sonstige Fragen zu Delphi

12. Apr 2009, 13:12

Antworten: 0

Delphi WhiteSpaceTrim: Schnellere Version, wie aber trimmen?

Hits: 487

Erstellt von Go2EITS

WhiteSpaceTrim: Schnellere Version, wie aber trimmen?

Hallo, ich habe meine neuen Kenntnisse durch Euch bei nachfolgender Funktion ausprobiert,
die in einem String Leerräume entfernt, wenn diese mehr als 1x vorkommen:
program CleanWhiteSpace;
...

Forum: Sonstige Fragen zu Delphi

12. Apr 2009, 08:02

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Re: Funktionsaufruf: Dauert immer länger. Warum?

@Janicke
Was Pointer, richtig eingesetzt, bewirken können. Das Ergebnis und die vorhergehenden Vorschläge sind sehr lehrreich und wohl auch für andere DP'ler interessant. Vielen Dank!

Forum: Sonstige Fragen zu Delphi

12. Apr 2009, 06:53

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Re: Funktionsaufruf: Dauert immer länger. Warum?

Ich habe die Version von Christian einfach mal probeweise mit der Mengenabfrage probiert.
Und das Ergebnis ist, 145 ms zu 45ms mit der Mengenabfrage! So sieht der momentan schnellste Code aus:...

Forum: Sonstige Fragen zu Delphi

11. Apr 2009, 18:03

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Funktion

Toms ist aufgefallen, dass etwas fehlt, daher: Code Käse und gelöscht. :( Danke toms!

Forum: Sonstige Fragen zu Delphi

11. Apr 2009, 17:16

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Re: Funktionsaufruf: Dauert immer länger. Warum?

@3_of_8
Bin mir da nicht so sicher, ob es mit Pointern manchmal doch schneller geht... :gruebel:
Vielleicht, weil man dann maschinennäher programmiert?

Forum: Sonstige Fragen zu Delphi

11. Apr 2009, 16:55

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Re: Funktionsaufruf: Dauert immer länger. Warum?

Danke Christian und Cyf, nochmals 50% rausgeholt.
Kleine Änderungen am Vorschlag vorgenommen, damit der Text auch angezeigt wird:

// Zur Erinnerung:
// var
// ValidChars1: array[1..53] of...

Forum: Sonstige Fragen zu Delphi

11. Apr 2009, 13:41

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Re: Funktionsaufruf: Dauert immer länger. Warum?

Ich habe mal beide Versionen nachstehend eingefügt.
a) Version mit der Mengenabfrage und b) Abfrage mit einer Tabelle.
program ClearString1;

{$APPTYPE CONSOLE}

uses
FastMM4, FastMove,
...

Forum: Sonstige Fragen zu Delphi

11. Apr 2009, 11:51

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Re: Funktionsaufruf: Dauert immer länger. Warum?

@Jbg: Wie soll das gehen?
Wenn ich einmal den Übergabestring durchlaufe und gleichzeitig den neuen String bilde mit "result:=result+Str[i]" habe ich wohl die schnellste Version.
Ein

for i:=1 to...

Forum: Sonstige Fragen zu Delphi

11. Apr 2009, 09:15

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Re: Clearstring:Aufruf dauert immer länger.

@Hawkeye219:
Opps, so einfach. Es funktioniert. Allein wäre ich nie darauf gekommen. Danke! :thumb:
Wenn man FastMM4 und FastNove einbindet, wird die Funktion noch schneller.

Forum: Sonstige Fragen zu Delphi

11. Apr 2009, 08:05

Antworten: 17

Delphi Funktionsaufruf: Dauert immer länger. Warum?

Hits: 2.122

Erstellt von Go2EITS

Funktionsaufruf: Dauert immer länger. Warum?

Hallo, nachstehendes Programm bitte einmal ausprobieren.

In der vorliegenden Version wird Clearstring1 immer langsamer. Ich kann es nicht erklären.
Die drei Funktionen unterscheiden sich nur...

Forum: Sonstige Fragen zu Delphi

9. Apr 2009, 12:01

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Funktion

@Himitsu: Dein Codevorschlag ist hervorragend!
Und wenn ich die Constanten und Variablen global deklariere, dann wird die Funktion tatsächlich langsamer. Ich habe nur noch ca. 10 ms mit meinen...

Forum: Sonstige Fragen zu Delphi

9. Apr 2009, 10:44

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Funktion

@hoika Darum auch ein eindeutige Namen, die man wohl nicht 2x verwendet: z. B. Checkstr_i
Es bleibt Dir überlassen, was Du machst. Hier wird niemand gezwungen. :zwinker:

Forum: Sonstige Fragen zu Delphi

9. Apr 2009, 09:26

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Funktion

Interessante Idee. Das werd ich mal probieren. Danke.

Forum: Sonstige Fragen zu Delphi

9. Apr 2009, 07:56

Antworten: 3

Delphi Wie Imacros (Firefox addon) in Delphi 7 einbinden?

Hits: 909

Erstellt von Go2EITS

Re: Wie Imacros (Firefox addon) in Delphi 7 einbinden?

Upps! Nein. Dies wirds wohl sein, dass die Komponente wohl nicht in der Firefoxversion (Freeware) dabei ist. 399.- ist mir ein wenig zu teuer. :(

Forum: Sonstige Fragen zu Delphi

9. Apr 2009, 06:00

Antworten: 3

Delphi Wie Imacros (Firefox addon) in Delphi 7 einbinden?

Hits: 909

Erstellt von Go2EITS

Wie Imacros (Firefox addon) in Delphi 7 einbinden?

Hat jemand schon versucht imacros in Delphi 7 einzubinden? Ich habe die Anleitung mit Delphi 2009 versucht, die Komponente wird mir nicht angezeigt, bzw. ich kann keine finden.
Kann jemand...

Forum: Sonstige Fragen zu Delphi

8. Apr 2009, 19:36

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Funktion

Wie gesagt, nehme den globalen Var-Abschnitt und kopiere diesen lokal in CheckStr rein und führe dann das Programm aus. Es benötigt länger.
Meckern tut Delphi bei mir auch, das stört mich nicht...

Forum: Sonstige Fragen zu Delphi

8. Apr 2009, 18:46

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Funktion

@himitsu
Nehme den Var Abschnitt in die Funktion Checkstr mit rein, also lokal. 1000000 mal die Variablen neu angelegen beim Aufruf der Funktion kostet Zeit. Probiere es mal aus. Ein...

Forum: Sonstige Fragen zu Delphi

8. Apr 2009, 18:23

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Funktion

Hallo, himitsu. Danke. Dürfte ein paar Millisekunden sparen.
[Nachtrag]
Opps, ein paar Millisekunden? Das Programm benötigt fast nur noch die Hälfte der Zeit!
Super Tipp! :cheer:

Forum: Sonstige Fragen zu Delphi

8. Apr 2009, 17:58

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsString als eine Function

Hallo, hier meine Version mit Includes und einem "Profiling".
Natürlich kann man andere Zeichen mit einfügen, oder die Funktion um ein IsFloat, IsInKlammern etc. ergänzen. Inwieweit dies sinnvoll...

Forum: Sonstige Fragen zu Delphi

4. Apr 2009, 05:58

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsNumeric als eine Function

@hobbyprogrammierer
Consolenprogramm verwende ich nur zum Testen von Routinen und sind kurz und schnell erstellt.
Dein Code sieht auf dem ersten Blick schön aus, ich bekomme ihn wegen vieler Fehler...

Forum: Sonstige Fragen zu Delphi

3. Apr 2009, 17:09

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsNumeric als eine Function

@Jheins
Dann gibt die Funktion als Antwort:
"Achtung, falsche Zeichen übergeben. Bitte korrigieren Sie Ihre Eingabe. Danke." :-D

Erweitere die Funktion selbst:
...

Forum: Sonstige Fragen zu Delphi

3. Apr 2009, 16:00

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsNumeric als eine Function

Vorläufige Endversion, Dank Eurer Hilfe, meiner Funktion:
program test;
{$APPTYPE CONSOLE}
uses SysUtils;

// Dies ist unser ErgebnisTyp:
type r=(Leer,Ziffer,Zeichen,AlphaNum);

function...

Forum: Sonstige Fragen zu Delphi

3. Apr 2009, 13:13

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsNumeric als eine Function

@jfheins
Die Lösung ist ja interessant, unabhängig davon, das immer 1 als Ergebnis gezeigt wird.
Insbesondere hier ein Beispiel für die Verwendung von Include.
Hier der Code (von jfheins)...

Forum: Sonstige Fragen zu Delphi

3. Apr 2009, 09:57

Antworten: 43

Delphi Isalpha, IsNum, IsString als eine Funktion

Hits: 7.472

Erstellt von Go2EITS

Re: Isalpha, IsNum, IsNumeric als eine Function

@fkerber
Danke, war schon oft Thema in der DP. Ändere ich. Danke!

Zeige Ergebnis 1 bis 25 von 500

Seite 1 von 20

1

Gehe zu: