Variable zuordnen

[Proffy]

Hallo Leute,
Ich bin noch sehr neu hier und kenne mich nicht gut mit dem Programm Lazarus aus, da wir es gerade erst in der Schule anfangen
Unser Lehrer hat uns als Hausaufgabe gleich eine Aufgabe gestellt ohne uns zu erklären wie es geht

Darum meine Bitte, ob ihr mir helfen könnt mein Problem zu lösen
ICh versuche euch mal meine Aufgabe zu erklären:

Ich soll einer Variablen (Label1) mit einem Button einen wert von Edit 1 geben

Dannach soll ich es so einstellen das er mir das Wort rückwärts ausgibt und jeden Buchstaben doppelt



Hoffe ihr versteht das(blick da nicht so durch ), denn ich bin noch Anfänger

MFG Proffy

[Live]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=Edit1.Text;
end;

So in etwa?

Und für den zweiten Teil würde ich eine for-Schleife nehmen, die jeden Buchstaben des Strings ausließt, den du aus Edit1.text bekommst. So kannst du auch jeden Buchstaben 2x einfügen und rückwärts am Ende zusammenfügen

[Euklid]

Hallo Proffy,

das mit dem "jeden Buchstaben doppelt" habe ich noch nicht verstanden. Dieser Code sollte das Wort aber schonmal "rückwärts" ausgeben:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
Label1.Caption:='';
for n:=length(Edit1.Text) downto 1 do Label1.Caption:=Label1.Caption + Edit1.Text[n];
end;

Viele Grüße, Euklid

PS: Habe die Verschiebung ins Einsteigerforum bei monta beantragt.

[Live]

das mit dem"jeden Buchstaben doppelt" habe ich noch nicht verstanden. Dieser Code sollte das Wort aber schonmal "rückwärts" ausgeben:

Ich denke er meint einfach, dass jeder Buchstabe 2x eingetragen wird.

[theo]

@Euklid und Live: Ist ja schön, wenn ihr Spass habt, aber dem Proffy die Hausaufgaben fixfertig lösen finde ich nicht so schlau.

[Live]

@Euklid und Live: Ist ja schön, wenn ihr Spass habt, aber dem Proffy die Hausaufgaben fixfertig lösen finde ich nicht so schlau.

War ursprünglich auch nicht meine Intention.

[Proffy]

Hallo
Danke für eure Hilfe.
ICh verstehe es jetzt wenigstens ein bischen xD

Könntet ihr mir trotzdem vielleicht noch erlären genau wie man dann jeden Buchstaben 2x ausgibt, wäre nett


MFG

[theo]

ICh verstehe es jetzt wenigstens ein bischen xD

Wenn du es auch nur ein bisschen verstanden hast, kannst du das Problem nun selber lösen.
Ansonsten stelle bitte wenigstens die Fragen so, dass man erkennen kann, dass du dich auch nur eine Minute damit beschäftigt hast.

[Petermaennchen]

So täte ich das:

Textvariable = leer
for i := Länge(label1.caption) downto 1 do
begin
Textvariable := Textvariable und label1.caption[an der Stelle der Laufvariablen]
(oder auch Textvariable := Textvariable und kopiere aus Label1.caption von der Position der Laufvariablen 1 Zeichen)
wiederholen zur doppelten Augabe
end
zeige Textvariable auf Bildschirm.


Das Umsetzen in Pascal ist dann deine Aufgabe

Gruß

Peter