Edit in memo einfügen

[JWeis]

Hallo Leute :hi:
Ich hätte mal wieder ein Problem(chen) :angel2:

Ich will ein Programm schreiben, bei dem ich etwas in Edit einschreibe und der Inhalt soll an einer bestimmten Position in einem Memo eingefügt werden.

Kann ich das irgendwie mit cuttoclipbord oä. machen oder hat jemand ne bessere idee?

[turboPASCAL]

Könnte man zB. so machen:

Delphi-Quellcode:

procedure TFormX.ButtonXClick(Sender: TObject);
begin
  Clipboard.AsText := EditX.Text;
  MemoX.SelStart := 3; // Einfügestelle
  MemoX.PasteFromClipboard;
end;

Aber wohin soll der Text? Wie und wo (und wann) muss der Text an welche Stelle in das Memo.

[r2c2]

Kann ich das irgendwie mit cuttoclipbord oä. machen oder hat jemand ne bessere idee?[/quote]
Ja man kann die Ztwischenablage verwenden und Ja, ich hab ne bessere Idee. Wenn du die Zwischenablage nimmst, wird deren Inhalt überschrieben und das ist nicht unbedingt im Sinne des Users.

Mach also einfach sowas:

Delphi-Quellcode:

Memo1.Lines.Add(Edit1.Text;

//Edit: Wo war der Rote Kasten?
Egal: Zum einfügen:

Delphi-Quellcode:

Memo1.SelText := Edit1.Text;
//bzw. zum einfügen einer Zeile:
Memo1.Lines.Insert(<Parameter bitte selbst nachgucken>);
//bzw. zum einfügen an einer anderen Stelle:
Insert(<Memo1.Text>...<parameter bitte selbst nachgucken>);

mfg

Christian

[JWeis]

@turboPASCAL:
wann? onclick
wohin? zeile 3
buchstabe 7

@r2c2:

:wiejetzt:
Kapier ich grad nicht.

[smudo]

Hallo JWeis,

man sollte es doch so einfach wie möglich machen.
Du prüfst mit Lines.Count ob dein Memo genügend Zeilen hat.
Wenn nicht, fügst du welche mit Lines.Append an.
Und dann schreibst du beispielsweise in Memo1.Lines[3] den Text, welcher in Edit1.Text steht.

René

[JWeis]

ok ich probier das mal!
wenn ichs nich hin bekomme schreib ich nochmal!

[padavan]

Zitat:

Du prüfst mit Lines.Count ob dein Memo genügend Zeilen hat.
Wenn nicht, fügst du welche mit Lines.Append an.

Aber dann hat man leere Zeilen im Memo stehen, was später zu Problemen führen KÖNNTE, je nach dem was man dann noch vor hat.

JWeis, reichts nicht wenn sie im Memo nur angehängt werden?

[smudo]

Zitat:

Zitat von padavan

Aber dann hat man leere Zeilen im Memo stehen, was später zu Problemen führen KÖNNTE, je nach dem was man dann noch vor hat.

:shock: Welches Problem sollte dabei entstehen können?

[JWeis]

so ich hab da mal was vorberreitet

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('^XA^XFLabel.ZPL') ;
  Memo1.Lines.Add('^FN1^FD' + Edit1.Text + '^FS');
  Memo1.Lines.Add('^FN2^FD' + Edit2.Text + '^FS') ;
  Memo1.Lines.Add('^FN3^FD' + Edit1.Text + '-' + Edit2.Text + '^FS^XZ');
end;

ich hab mich jetzt entschieden so ähnlich das zu machen
nur DAS klapt nicht! :wall:

[smudo]

:wiejetzt:

Mal ne dumme Frage: Was soll denn das werden?
Und was funktioniert denn nicht?