Einzelnen Beitrag anzeigen

fatalerror
(Gast)

n/a Beiträge
 
#50

Re: Quelltext in Quelltext setzten

  Alt 5. Feb 2010, 10:10
Ich wiederhole nochmal, ein Memo wäre hier angebracht gewesen!

Als Alternative, wenn ihr schon unbedingt lange und komplexe Strings verknüpfen wollt, dann würde ich als Programmierer das auch mit einem kleinen Progrämmchen tun:

uses clipbrd

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
strl: TSTringlist;
strv: string;
i:Integer;

begin
if OpenDialog1.execute then
begin
  strl:= TStringList.Create;
  try
    strl.LoadFromFile(OpenDialog1.filename);
    for i:= 0 to strl.Count - 1 do
      begin
        if i < strl.Count - 1 then
          strv:= strv + quotedstr(strl[i]) + ' + sLineBreak + ' + #13#10
        else
          strv:= strv + quotedstr(strl[i]) + ';';
       end;

   Clipboard.SetTextBuf(PWideChar(strv));
  finally
   strl.Free;
  end;

end;

end;
1. die Prozedur liest den Quelltext ein
2. Erstellt den String
3. Kopiert den String in die Zwischenablage

So nun kann nur noch in deinem Projekt der erhaltene String eingefügt werden. Also
str_Meineingebundenerquelltext:= CTLR + V
  Mit Zitat antworten Zitat