FindComponent oder was ?!?! (sry nix besseres eingefallen)

[J Kadison]

Hallo Leutle!

Ich hätte da gerne mal wieder ein Problem ^^ :wiejetzt:

Und zwar: ich will ne Prozedur (in ner eigenen Unit) schreiben, die mir was Verschlüsselt. (hab ich auch, klappt auch mal ausnahmsweise :thumb: )
aber jetzt hab ich das ganze nur darauf spezialisiert, dass dateien verschlüsselt werden. Nun möchte ich aber, dass der dat Janze auch aus nem Memo von ner anderen Form (im der Glecihen Applicatiron) verschlüsselt.

Also:

Delphi-Quellcode:

  //Datei=True
  If Datei = True then begin
    sl:=TStringList.Create; //Objekt erzeugen
    if FileExists(Quelle) then
      sl.LoadFromFile(Quelle);
    text:= sl.gettext; //Datei öffnen
    sl.free; //Objekt wieder freigeben
  end Else begin

  //Datei = False

  end;

Ich hab ne boolean (Datei) . wenn die true ist, liest der meinen text aus der datei 'Quelle' ein. und nun möchte ich, wenn datei=false dass der das in Quelle angegebene memo nimmt also z.b. Quelle = 'Form1.MeinMemo' und nun soll er den Text aus der memo in die Var text schreiben.

Wie kann ich das denn am dümmsten anstellen?
(Google ist leider nicht mein Freund. Zeigt mir alles blos nicht, wie ich das machen kann. )


:gruebel:


Edit:
Kann ich das überhaupt machen ohne dass ich oben in die Uses die andere Unit eintrage?
Weil das Ganze soll für viele Programme gelten und somit kann ich nicht immer die anderen units eintragen

[Apollonius]

Warum nimmst du nicht eine eigene Routine und übergibst dort das Memo als Parameter?

[oki]

Zitat:

Zitat von J Kadison

Hallo Leutle!
Ich hätte da gerne mal wieder ein Problem ^^ :wiejetzt:

Ich nicht, hab genug davon :mrgreen:
sorry, mußte sein.

Jetzt zum Thema. Du kannst deiner Variablen Text natürlich genauso den Inhalt deines Memos zuweisen.

Delphi-Quellcode:

  Text := Memo1.Text;

Also, nach der Prüfung, ob es eine Datei ist liest du diese und übergibst den Inhalt an Text, wenn nicht, läßt du das Dateihandling weg und weist den Inhalt wie in meinem Beispiel zu.

Delphi-Quellcode:

//Datei=True
  If Datei = True then begin
    sl:=TStringList.Create; //Objekt erzeugen
    if FileExists(Quelle) then
      sl.LoadFromFile(Quelle);
    text:= sl.gettext; //Datei öffnen
    sl.free; //Objekt wieder freigeben
  end Else begin
    text := Memo1.Text;
  end;

Gruß oki

[J Kadison]

und wenn das memo1 jetzt memo 2 heißt ?! wie mach ich das dann? und außerdem hab ich shcon gesagt, dass ich die unit nicht eingebunden habe also sollte das doch theoretisch net gehen odeR?!

[oki]

Sorry, ich versteh die Frage nicht. Du musst doch wissen was du übergibst. Wenn du eine allgemein verfügbare Funktion schreiben willst, dann musst du halt das übergeben, was du einheitlich beschreiben kannst. Das ist dann Text : String. Oder du übergibst eine Klasse vom Typ TObject und prüfst in der Funktion auf dir bekannte Klassen und greifst dann auf die entsprechenden Eigenschaften zu.

Verstanden hab ich dein Problem jetzt aber immer noch nicht.

Gruß oki