Texte aus Memo der Caption eines Panels zuweisen

marvin521993 · Beiträge: 172

Moderiert von Tino: Abgetrennt aus Vokabelprogramm!! Welche Komponente??

naja egal ich habe jetz ne memo genommen.

also mein layout is so:
oben eine radiogroup wo drin steht wie er abfragen soll(Englisch - Deutsch)(Deutsch -Englisch)
Drunter sind halt 2 memos wo man die englische vokabel und die deutsche übersetzung eingeben muss.
darunter ist ein panel, wo er irgendeine x- beliebige zeile aus einem memo nimmt, und die ausgibt
daneben ist ein edit, wo man dann die übersetzung reinschreiben soll.
meine prozedur für den button, der die einträge in das memo übernehmen soll, ist nun:

markieren

Delphi-Quelltext

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

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
    str, stri : String;
begin
stri := MemoEnglisch.Text;
If RadioGroup3.ItemIndex = 0 Then
  begin
   for i := 0 to length(stri) do
    begin
     str := MemoEnglisch.Text[i];
    end;
    Panel1.Caption := str;
  end;
end;

aber der gibt im panel immer nur den letzten buchstaben von der memo aus.

wo liegt mein denkfehler?

Lg
Marvin

Dunkel · Beiträge: 682 Mac OS X Snow Leopard Xcode 3.1

markieren

Delphi-Quelltext

1:	Panel1.Caption := Panel1.Caption + str;

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Ich schätze mal Du meinst sowas ?

markieren

Delphi-Quelltext

1:
2:
3:
4:

for i := 0 to MemoEnglisch.Lines.Count-1 do
    begin
     str := MemoEnglisch.Lines[Random(i+1)];
    end;

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

marvin521993 · Beiträge: 172

hi

ich habe mein projekt jetz ma unten reingestellt:

wie mach es nun, das der die editeingabe mit der entsprechenden zeile im memo vergleicht und dann ne message zeigt mit richtig oder falsch?
hab mir sowas gedacht wie:

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
If RadioGroup3.ItemIndex = 0 Then
 begin
  If Edit1.Text = MemoDeutsch.Text[i] Then
   begin
    ShowMessage('Richtig');
   end
   else
   ShowMessage('Falsch');
end;
end;

wo liegt mien fehler?hoffe mir kann jemand helfen
danke

Lg
Marvin

Einloggen, um Attachments anzusehen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme