[Open-Source]Programm zum Link-Quelltext erstellen

[Tommy1988]

ich hab jezt den code nicht da.. ich machs mal primitiv:

Delphi-Quellcode:

uses Clipbrd;
.
.
.
vWert := teil1+teil2+teil3;
Clipboard.AsText := vWert;

Du kannst auch:

Delphi-Quellcode:

Clipboard.AsText := teil1+teil2+teil3;

machen aber ich finde das erste besser

Edit:
versuche gleich mal den verbesserungsvoeschlag anzunehmen und stelle den source ein.

[Matze]

Zitat:

Zitat von dajuhsa

hab ich versucht, aber wie kopiert man den string-text in die zwischenablage?

Na viel einfacher und zwar so: ;)

Delphi-Quellcode:

uses Clipbrd;

...

Clipboard.AsText := 'Text';

[dajuhsa]

Zitat:

Zitat von mr.winkle

Das "Klicken, um die Webseite zu besuchen" funktioniert bei mir nicht. Noch ein Verbesserungsvorschlag: Wenn der Benutzer z.B. www.google.de eingibt, sollte im Link nachher "http://www.google.de" stehen

wieso? www.google.de geht doch auch.

Zitat:

ich hab jezt den code nicht da.. ich machs mal primitiv:

Delphi-Quellcode: markieren
uses Clipbrd;
.
.
.
vWert := teil1+teil2+teil3;
Clipboard.AsText := vWert;



Du kannst auch:
Delphi-Quellcode: markieren
Clipboard.AsText := teil1+teil2+teil3;


machen aber ich finde das erste besser

Danke, das wusste ich nicht

[Tommy1988]

Das mit dem HTTP kriege ich nicht hin.. null ahnung wie das gehn soll.. meine versuche klapten nicht

[dajuhsa]

guck dir mal meine function URLGültig an, damit müsste doch was anzufangen sein, oder nicht? :gruebel:

[Tommy1988]

Aso..
ich hab das ganz anders versucht.. aber jetzt ist es richtig:

Delphi-Quellcode:

  if ((URL[1]='h') and (URL[2]='t') and (URL[3]='t') and
     (URL[4]='p') and (URL[5]=':') and (URL[6]='/') and
     (URL[7]='/')) and
     ((URL[8]='w') and (URL[9]='w') and (URL[10]='w') and
     (URL[11]='.')) then
    result := true;

[Matze]

Zitat:

Zitat von Tommy1988

Aso..
ich hab das ganz anders versucht.. aber jetzt ist es richtig:

Delphi-Quellcode:

  if ((URL[1]='h') and (URL[2]='t') and (URL[3]='t') and
     (URL[4]='p') and (URL[5]=':') and (URL[6]='/') and
     (URL[7]='/')) and
     ((URL[8]='w') and (URL[9]='w') and (URL[10]='w') and
     (URL[11]='.')) then
    result := true;

Wie geil :mrgreen: Sorry, find's so lustig, bitte nicht übel nehmen. :)
Einfacher geht es so:

Delphi-Quellcode:

if Pos('http://www.', URL) = 1 then

Aber du musst bedenken, Subdomains oder IPs zu Beginn einer URL haben kein "www.". Evtl. soll man auch über ftp:// etwas einbinden können, das ginge ja auch.

[Tommy1988]

@ Matze

Der Code kommt nicht von MIR sondern vom Threadersteller ;)

Wie meinst du das mit deinem Codestück?

Kontext?

[dajuhsa]

ja das war mein code, wusst nicht dass das mit pos geht

[Matze]

@Tommy: Find's trotzdem lustig, aber man muss natürlich dazulernen und für den Anfang eine funktionierende, wenn auch nicht allzu schöne Lösung. ;) Mein Code ersetzt den obigen, mehr macht er nicht -> OH fragen, was Pos macht. ;)

@dajuhsa: Jupp, das ist ja nicht schlimm, nun weißt du's. :)