Autor Beitrag
Barracuda
Hält's aus hier
Beiträge: 8



BeitragVerfasst: So 23.12.07 01:51 
Haaay

Nun, ich möcht mir n'kleines Tool für die Taschenrechner-Programmierung schreiben.
Das soll so funktionieren: Ich wähle in einer Combobox-Komponente einen Befehl aus, z.B. "Hallo Anzeigen" und dann soll er das in das Memo-Feld schreiben. (hat bis jetzt auch geklappt)
Nun aber mein Problem: Wenn ich nun den 2. Befehl auswähl überschreibt er den ersten (bzw. löscht diesen), obwohl ich den zweiten auf der zweiten Zeile anzeigen lass!

Ach ja, und noch ne frage: Wäre es möglich eine Funktion einzubauen so dass ich am Schluss, wenn ich fertig bin den gesammten Inhalt des Memo-Feldes in eine .txt Datei exportieren kann?

Lg

Ach ja, hier der Quellcode (noch mit Platzhaltern!)

ausblenden volle Höhe Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Memo1: TMemo;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 case ComboBox1.ItemIndex of

    0:  Memo1.Text:= 'Hallo';

    1:  Memo1.Text:=#13#10 + 'Joachim';

    2:  Memo1.Text:='Gehts';

    3:  Memo1.Text:='dir';

    4:  Memo1.Text:='gut?';


  end;
end;

end.


Moderiert von user profile iconjasocul: Delphi-Tags hinzugefügt
Moderiert von user profile iconjasocul: Topic aus Sonstiges (Delphi) verschoben am So 23.12.2007 um 11:17
LorenzS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 128

MS-DOS, WIN 7, WIN 10
BP7.0, D3, D5
BeitragVerfasst: So 23.12.07 01:53 
ausblenden Delphi-Quelltext
1:
Memo1.text:=Memo1.text+'Hallo';					

Memo1.text ist ein normaler string

speichern:
ausblenden Delphi-Quelltext
1:
memo1.Lines.SaveToFile('text.txt');					
Barracuda Threadstarter
Hält's aus hier
Beiträge: 8



BeitragVerfasst: So 23.12.07 02:08 
Danke, is vielleicht schon n'bissl spät;)

(lieblingsausrede;P)
Tarry
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 213
Erhaltene Danke: 1



BeitragVerfasst: So 23.12.07 13:36 
Hi,
ich hab dein Problem noch nicht ganz verstanden ;), aber vielleicht hilft dir das ja:

ausblenden Delphi-Quelltext
1:
memA.Lines.Add('Neue Zeile');					


Der Befehl hängt jetzt einfach in memA eine neue Zeile mit dem Text "Neue Zeile" an.

Gruß
Tarry

_________________
"Es gibt zwei Dinge, die unendlich sind. Das Universum und die menschliche Dummheit. Beim Universum bin ich mir noch nicht ganz sicher." -Albert Einstein
Barracuda Threadstarter
Hält's aus hier
Beiträge: 8



BeitragVerfasst: So 23.12.07 15:04 
Mein Problem war das immer wenn ich das Nächste Textfragment anhängen wollte (also z.B. Joachim + wie) zwar das "wie" geschrieben wurde aber auch das "joachim" gelöscht wurde. Aber das hat sich nun ja geklärt;)

Danke!

Lg