Quelltext in Quelltext setzten

[p80286]

@FatalError
Lass doch gut sein, ist zwar ein hübscher Vorschlag, aber so lange wir nicht wissen worauf er überhaupt hinaus will......

Hinterher will er ein Auto kaufen weil er in einer Dokumentation gesehen hat das (Alt)Autos auch als Hühnerställe dienen.

Gruß
K-H

[IntErES]

Also ich weiß echt nicht weiter hab mir den Quelltext jetzt schon drei mal durchgeguckt.Vielleicht findet ihr etwas.Ich glaube eher,dass ich etwas weggelassen habe was wichtig ist.Naja schaut selbst:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
 var   squellcode:'unit Unit1'+sLinebreak+

'interface'+slinebreak+

'uses'+slinebreak+
  'Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs'+slinebreak+

'type'+slinebreak+
  'TForm1 = class(TForm)'+slinebreak+
  'private'+slinebreak+
    '{ Private-Deklarationen }'+slinebreak+
  'public'+
    '{ Public-Deklarationen }'+slinebreak+
  'end;'+slinebreak+

'var'+slinebreak+
  'Form1: TForm1;'+slinebreak+

'implementation'+slinebreak+

'{$R *.dfm}'+slinebreak+

'procedure xyz(Sender :TObject);'+slinebreak+
....
....
'end.';

PS:@Tun das Altautos nicht?

[Blackheart]

Delphi-Quellcode:

'procedure xyz(Sender :TObject);'+slinebreak+
.... // Was ist den Punkt, Punkt, Punkt steht da noch was ?
....
'end.';

[IntErES]

@Blackheart Ehm ja habe gedacht,dass es logisch wäre^^.Bei der Procedure wurde genau das gleiche Verfahren verwendet.
Also: 'blabla'+slinebreak+

[Blackheart]

Und wie soll man den Fehler finden wenn du nur teilweisen Code lieferst.

[IntErES]

@Blackheart Der Fehler liegt nicht in der Procedure,er liegt wie der Debugger von Delphi sagt,dass der Fehler in der letzten Zeile ist also 'end;'; der Fehler lautet: " '..' erwartet,aber ';' gefunden'.
Ich habe bereits die Procedure ausgeschnitten und nur den Code des vom am Anfang an existierenden Quelltexts überprüft und auch da steht der Fehler immer noch drin.Deswegen denke ich ja auch das ich irgendwas vergessen habe hinzuzufügen.

Was denkst du ist das vielleicht irgendwas zu wenig da

[phreax]

Zitat von IntErES:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
 var   squellcode:'unit Unit1'+sLinebreak+

es muss
var squellcode:string = '...'; heißen

[IntErES]

@phreax Oh Mann,als ich das gelesen habe ist mein Herz schier rausgesprungen
Aber leider funktioniert das nicht.Neuer Fehler [Fehler] Unit1.pas(283): Lokale Variablen können nicht initialisiert werden

Neue Vorschläge?

Edit:Ich habe in der Procedure einige Kommentare,an denen kanns ja wohl nicht liegen oder?

[phreax]

Wiedermal nicht aufgepasst
Also entweder du machst folgendes:

Delphi-Quellcode:

procedure xyz;
var bla: string;
begin
bla := 'deinstring';

//oder 

procedure xyz;
const bla = 'deinstring'; //geht nur wenn der Text nicht mehr verändert werden muss

Alternativ kannst Du die Variable auch noch global deklarieren.

[IntErES]

Du bist der beste,ich danke dir vielmals,haha genial