Text in Unit schreiben und in Memo ausgeben, wie geht das?

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Hi Leute,
(Ich bin noch ziemlicher Anfänger in Delphi)

Ich habe ein Problem: Ich hab ein Programm bei dem man erst einen wert angeben muss der dann in einen Code eingefügt wird, wenn man auf einen Button klickt.
Also erst kommt ein Stück Code (CSS), dann kommt der Wert und dann wieder CSS und so weiter.
Wie bekomm ich den ersten Teil des Codes in das Memo?
Bisher hab ich das so gemacht das ich erst ein Label mit dem Code erzeugt hab und dann habe ich in die Unit geschrieben das wenn man auf den Button klickt der Inhalt des Labels in das Memo kommt.
Aber das is ja eigentlich Schwachsinn weil dann ja das ganze Form voll mit Labels ist!
Jetzt meine Frage: Kann ich die einzelnen Teile des Codes irgenntwie in die Unit schreiben?

Ich hoffe ihr versteht mein Problem und könnt mir helfen!
Danke schon mal im Vorraus!

StefanH · Verfasst: Do 29.01.04 20:47

zeig mal deinen Code mit dem Wert, dann kann man dir vielleicht eher helfen

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Chatfix · Verfasst: Do 29.01.04 21:00

Speichere doch Deine Code-Teile ind Strings.
Dann könntest Du Sie ja so wieder zusammen basteln:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

var String1, String2: String;

String1 := 'Hallo, du hast "';
String2 := '" in das Feld eingegeben.';
Label1.Caption := String1 + Edit1.Text + String2;

Ich hoffe Du hast das so gemeint...

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Popov · Verfasst: Do 29.01.04 23:43

Versuch es mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var String0, String1, String2: String;

String1 := 'Hallo, du hast "';
String2 := '" in das Feld eingegeben.';
String0 := String1 + Edit1.Text + String2;

// Wenn du es an Label1 übergeben willst
Label1.Caption := String0;

// Wenn du es an Memo1 übergeben willst
Memo1.Lines.Add(String0);

Memo1.Lines.Add fügt immer eine neue Zeile dazu. Wenn du Memo1 löschen willst, dann mit Memo1.Lines.Clear;

_________________
Popov

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Hallo,

Danke für die Tipps,
ich probier das gleich mal aus aber das sieht so aus als würde es funktionieren! *g*

_________________
Alles ist möglich, dem der glaubt!

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Danke nochmal, es hat alles geklappt!
Aber ich habe noch ein paar Fragen:

1. Wie kann ich in einem String einen Zeilenumbruch machen? Also das ich einen String hab und der eine Teil in einer und der andere in der nächsten Zeile ist!

2. Wie kann ich das machen, das sich auf klick die Edit's und das Memo leeren?

3. Wie sind die 'Befehle' für Ausschneiden, Kopieren und Einfügen? Also wie kann ich das in meinem Menü machen die Einträge hab ich schon aber ich brauch den code!

4. Wie kann ich in so einem Menü einen Link zu einer Homepage machen?

5. Wie kann ich es machen das man mein Programm nicht vergrößern kann?

So, das wars erstmal, ich hoffe ihr könnt mir helfen und meine Beschreibungen waren genau!

_________________
Alles ist möglich, dem der glaubt!

StefanH · Verfasst: Fr 30.01.04 21:34

1.:

markieren

Delphi-Quelltext

1:	MyString:= 'blubb'+#10#13+'lab

(#10#13 = Enter)

2.: es gibt TEDit.Clear und TMemo.Lines.Clear

3.:
Ausschneiden : TEdit (o. TMemo).CutToClipboard
Einfügen: PasteFromClipboard
Kopieren: CopyToClipBoard

4.: Suche in: Delphi-Forum, Delphi-Library

SHELLEXECUTE bzw. in den FAQs

5.: setz BorderStyle im Oberinspektor auf "bsSingle"

Stefan :nut:

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Ok, danke schön! Ich probiers gleich aus!

_________________
Alles ist möglich, dem der glaubt!

Brueggendiek · Beiträge: 304 Win 98, Win98SE, Win XP Home D5 Std

Hallo!

Kleiner Fehler:

StefanH hat folgendes geschrieben:

(#10#13 = Enter)

Zunächst einmal bevorzuge ich bei Character-Werten die Sedezimal-Darstellung. Unter #$0D kann ich mir mehr vorstellen als unter #13!

Der Zeilenumbruch ist Wagenrücklauf (CR) - Zeilenvorschub (LF)!
CR: #$0D oder #13
LF: #$0A oder #10.

Es muß also richtig heißen: #$0D#$0A oder #13#10 !

Gruß

Dietmar Brüggendiek

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Hallo,

Danke schön, das hat (alles) geklappt aber ich habe immer noch ein par Fragen:

1. Wie kann ich bei CutToClipboard (Paste..., Copy...) mehrere Edits nehmen, oder muss ich das jedesmal neu schreiben? Das verbraucht so viel Platz!

2. Das mit dem bssingle ging nicht! Bei bsSizeToolsWin und bsToolWindow war zwar nur noch das kreuz da aber ich will eigentlich bsSingle bloß ohne das "Viereck" (Vergrößerung)! Also das das gesperrt ist! Wie geht das?

3. Wenn ich zwei Fenster hab, kann ich dann auch z.B. ein Memo das in dem zweiten Fenster ist benutzen? Also das wenn man auf einen Button (erstes Fenster) klickt öffnet sich ein Fenster und der Code kommt in das Memo (in dem Fenster 2)?

4. Adobe Acrobat Reader hat ja im Menü (oben) Icons vor den Menüeinträgen. Im Ordner vom 'Reader gibt es aber keine Icons/Bilder, wo kommen also die Icons her? Ich will nämlich auch Icons davor haben aber nicht so viel Speicherplatz verwenden! Geht das?

So das wars erst mal! Ich hoffe könnt mir helfen!

_________________
Alles ist möglich, dem der glaubt!

StefanH · Verfasst: So 01.02.04 11:40

1.: kommt darauf an, was du machen willst...
2.: du musst bei "borderIcons" ~Maximize auf false stellen
3.: ja, geht

such einfach mal....
4.: eine ImageList auf die Form legen, bilderchen rein, im Menuü bei "IMages" die List auswählen, und dann beim Menüeintrag bei "ImageIndex" das bild aus dnken...

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Zu 1. Ich will das bei allen drei verkürzen! So:
Ausschneiden : Edit(all).CutToClipboard
Einfügen: Edit(all).PasteFromClipboard
Kopieren: Edit(all).CopyToClipBoard
Bei (all) soll dann was hin womit ich dann alles Edits auschneiden, kopieren und einfügen kann!

Zu 3. Ich hab gesucht, aber nichts gefunden! Kann mir vielleicht jemand anderes helfen? Oder hat jemand ne Idee?

Noch ne Frage: Wo kann die "Standart" -Icons (Neu, Ausschneiden, Kopieren, Einfügen) herbekommen?

Danke schon mal im Vorraus!

_________________
Alles ist möglich, dem der glaubt!

StefanH · Verfasst: So 01.02.04 12:29

zu zu 1.:du willst also alle edit - felder - texte zusammen in das ClipBoard???
zu zu 3.: erkär ma genauer

wenn du dir eine MDI-Anwendung von Delphi erstellen lässt, sind die in eine ImageList drin...

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Zu 1.: Ich will das man bei allen Edits den Text auschneiden kann, so sieht es normal aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:

Edit1.CutToClipboard;
Edit2.CutToClipboard;
Edit3.CutToClipboard;
Edit4.CutToClipboard;

Ich will das man nicht für jedes EDit eine Zeile schreiben muss! Geht das?

Zu 3.: In dem ersten Fenster muss man sieben Edits ausfüllen und dann auf OK klicken. Wenn man auf Ok geklickt hat soll sich ein neues Fenster öffnen mit einem Memo, in dieses Memo soll ein Code der sich aus den Texten in den Edits ergibt! Ich hab das bisher nur so hinbekommen, dass das Memo auch in Fenster eins ist!

Ich hoffe ihr könnt mich jetzt verstehen!? Wenn nicht, sorry! Aber ich weiß nicht wie ich das beschreiben soll![/delphi]

_________________
Alles ist möglich, dem der glaubt!

StefanH · Verfasst: So 01.02.04 20:49

zu 1.: weißt du, was dein Code macht?
er schneidet den Text von edit4 in die Zwischenablage... :lol:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

uses ...,ClipBrd;
...

procedure Auschneiden(Sender: TObject);
var i: integer;
     s: string;
begin
 for i:=1 to 7 do //7 edits....
 begin
  s:= s + (FindComponent('Edit' + IntToStr(i)) as TEDit).Text;
  (FindComponent('Edit' + IntToStr(i)) as TEDit).Clear;
 end;
ClipBoard.AsTExt:= s;
end;

zu 3.:

ok, also MEmo leigt auf Form2 mit dem Namen Memo1:

Code für Unit1 = 7 edits

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

implemation
uses Unit2;

...

procedure Button1Click(Sender: TObject);
begin
Form2.Memo1.Lines.Add('blubb'); //Form2.Memo1 ...
end;

Stefan

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Panther · Hält's aus hier Beiträge: 11 Win Xp D6 Pers, D7 Enterpr

Oh dann hab ich mich wohl vertan! Sorry!
Danke für die Antworten aber weiß noch jemand was zu dieser Frage:

Wo kann die "Standart" -Icons (Neu, Ausschneiden, Kopieren, Einfügen) herbekommen?

_________________
Alles ist möglich, dem der glaubt!

StefanH · Verfasst: Mo 02.02.04 17:09

Delphi starten >> neu >> Projekte >> MDI-Anwendung

und dann ist da eine ImageList, und da sind die drin.

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme