AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

javascript + delphi

Ein Thema von horst · begonnen am 21. Nov 2003 · letzter Beitrag vom 7. Dez 2003
Antwort Antwort
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#1

javascript + delphi

  Alt 21. Nov 2003, 20:42
wer kann mir zeigen wie ich dieses javascript nach delphi zu übersetzen kann?
es geht um das erzeugen eines blindtextes (LOREM BLA BLUBB), der je nachdem wieviele zeichen gewählt wurden, erzeugt wird.

Code:
<!-- 
var e = '';      
function h() { 
e = document.a.b.value;
var chars = document.a.c.value;
if (chars == ''){ 
chars = 543;

var f = e;
while (e.length < chars){ 
e += f;

var g = e.substring(0, chars);
document.forms[0].d.value=g;

//-->

grüße horst
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.639 Beiträge
 
#2

Re: javascript + delphi

  Alt 21. Nov 2003, 22:10
Das was aus document im Script eingelesen wird kommt bei eingabe und anzahl rein, die funktion liefert dann den text zurück, der ins dokument zurückgeschrieben wird.

Delphi-Quellcode:
function Lore_Ipsum(eingabe: string; anzahl: integer): string;
var
   e,f: string;
   i,chars: integer;
begin
   // Werte holen (passiert im JavaScript aus document...)
   e := eingabe;
   chars := anzahl;
   
   // anzahl ggf. korrigieren
   if chars = 0 then
      chars := 543;
   
   // hilfsvariable hernehmen
   f := e;

   // hilfsvariable füllen...
   while length(f) < chars do
      f := f + e;

   // wir könnten länger sein als chars, also kürzen und zurückgeben
   result := Copy(f, 1, chars);
end;
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.639 Beiträge
 
#3

Re: javascript + delphi

  Alt 21. Nov 2003, 22:13
Das ist übrigens der korrekte ganze Text:

Zitat:
Lore ipsum dolor sit amet, consectetuer adipiscing elit, sed diemnonummy nibh euismod tincidunt ut lacreet dolore magna aliguamerat volutpat.
Ut wisis enim ad minim veniam, quis nostrud exercitution ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo. Feugait wis eugue er sendit vullandigna faccum nostionumsan,volor ing et nullaorpero odionummy nit lorper acipsum ver si exerautpat euismod.
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#4

Re: javascript + delphi

  Alt 22. Nov 2003, 08:06
Hai horst,
ich verschiebe den Beitrag mal nach "Programmieren allgemein".
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#5

Re: javascript + delphi

  Alt 22. Nov 2003, 09:03
hallo
dankeschön für die hilfe...
was bedeutet chars := 543; und warum gerade 543?

grüße horst
  Mit Zitat antworten Zitat
choose

Registriert seit: 2. Nov 2003
Ort: Bei Kiel, SH
729 Beiträge
 
Delphi 2006 Architect
 
#6

Re: javascript + delphi

  Alt 22. Nov 2003, 11:41
Zitat von horst:
was bedeutet chars := 543; und warum gerade 543?
Hallo horst,

ich denke, dass hier etwas ähnliches wie ein "optionaler Parameter" umgesetzt worden ist: Wenn keine Anzahl von Zeichen angegeben wurde, wird ein Standardwert (hier: 543) verwendet. Dies könntest Du auch direkt mit der Delphi Language lösen, zB
Delphi-Quellcode:
function LoreIpsum(const AEingabe: string;
  const AZeichen: Integer = 543): string;
var
  iZeichen: Integer;
begin
  Assert(Length(AEingabe)>0);

  //AZeichen <= 0 wird korrekt verarbeitet
  SetLength(Result, AZeichen);
  for iZeichen:= 0 to Pred(AZeichen) do
    Result[iZeichen+1]:= AEingabe[(iZeichen) mod Length(AEingabe)+1];
end;
gruß, choose
  Mit Zitat antworten Zitat
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#7

Re: javascript + delphi

  Alt 7. Dez 2003, 01:44
irgendwie zu spät gesehen...danke!
aber warum kann der wert nicht 0 sein?
  Mit Zitat antworten Zitat
choose

Registriert seit: 2. Nov 2003
Ort: Bei Kiel, SH
729 Beiträge
 
Delphi 2006 Architect
 
#8

Re: javascript + delphi

  Alt 7. Dez 2003, 13:05
Hallo Horst,

er spricht nichst dagegen, die Funktion auch mit 0 aufzurufen. Das JS-Snippet schien nur die übliche Lösung für optionale Parameter zu implementieren, die es in dieser Sprache nicht explizit gibt, wie in Delphi.
Ich wollte lediglich darstellen, wie Du die Delphi Language einsetzen kannst, um dasselbe zu erreichen und dabei deutlich machst, was gemeint ist...
gruß, choose
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#9

Re: javascript + delphi

  Alt 7. Dez 2003, 13:35
Ich schubse es mal nach Sonstiges, hat ja letztenendes was mit Delphi zu tun

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#10

Re: javascript + delphi

  Alt 7. Dez 2003, 23:19
ok...habs nun verstanden, danke
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:20 Uhr.
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