Nur 1. zeichen aus Textfeld verarbeiten

[rossinie00]

Nur 1. zeichen aus Textfeld verarbeiten

Hallo,
wieder ich, ich hoffe dass ich euch nicht zu sehr mit meinen anfänger fragen nerve.

Wie kann ich denn nur das erste zeichenvon der Benutzereingabe in nem edit1 in ner var speichern?
welcher typ muss var sein? var eing: char; oder?
Danke
rossinie00

[alcaeus]

Es kann char oder String sein:

Delphi-Quellcode:

var
  c: Char;
  s: String;
begin
  c := Edit1.Text[1];
  s := Edit1.Text[1];
//Alternativ geht auch:
  s := Copy(Edit1.Text, 1, 1);
end;

Ich hoffe das löst dein Problem

Greetz
alcaeus

[rossinie00]

genau das habe ich gesucht
danke
ich hoffe dass meine fragen gute referenzen für geuche sind =)
das forum ist echt top! nach ein paar min ne antwort!

jetzt hab ich sowas:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k: integer;
   eing: char;
begin
  memo1.clear;
  eing := edit1.text[1];
  for i := 1 to 4 do
    begin
      memo1.lines.add(eing + eing + eing + eing);
    end;
end;

nur anstatt da hin zu schreiben "memo1.lines.add(eing + eing + eing + ...........eing);" würd ich gerne i-mal die variable eing hintereinander.
Danke
rossinie 00

[ibp]

hi wie wäre es mit..

Delphi-Quellcode:

rocedure TForm1.Button1Click(Sender: TObject); 
var i,j,k: integer; 
   eing: char;
   eingstr:string;
begin 
  memo1.clear; 
  eingstr:='';
  eing := edit1.text[1]; 
  for i := 1 to 4 do eingstr:=eingstr+eing;
  memo1.lines.add(eingstr);
end;

gruß rene

[rossinie00]

nein geht nicht!
das müsste so aussehen:
#
##
###
####
#####
######
usw

[CalganX]

Hi,
vielleicht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k: integer;
   eing: char;
   eingstr:string;
begin
  memo1.clear;
  eingstr:='';
  eing := edit1.text[1];
  for i := 1 to 4 do begin
    for j := 1 to i do begin
      eingstr:=eingstr+eing;
      memo1.lines.add(eingstr);
    end;
  end;
end;

(Source ungetestet)

Chris

[rossinie00]

klasse danke!

[ibp]

@Chakotay1308 bei den ineinander geschachtelten schleifen sollte man dann eingstr:='' setzen sonst wird das nichts...

oder eben so..

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k: integer;
   eing: char;
   eingstr:string;
begin
  memo1.clear;
  eingstr:='';
  eing := edit1.text[1];
  for i := 1 to 4 do begin
    eingstr:=eingstr+eing;
    memo1.lines.add(eingstr);
  end;
end;

[CalganX]

Hi,
ich verstehe im Moment nicht, wo der Unterschied ist, aber okay.

Chris

[shmia]

Zitat von rossinie00:

das müsste so aussehen:
#
##
###
####
#####
######
usw

Delphi-Quellcode:

for i := 1 to 20 do 
  memo1.lines.add(StringOfChar(eing, i));