Editfeld Problem'chen'

[Torsten Wilberg]

Hallo,

ich lese von einem Editfeld ein Zeichen nachdem anderen ein und möchte nun Zeichen für Zeichen wieder in ein anderes Editfeld schreiben. und da komme ich nicht weiter. Im Debug -Modus sehe ich das der Code funktioniert.
Wie schiebe ich immer ein Feld weiter, um das nächste Zeichen reinzuschreiben?
Gruß!
Torsten

[Patrick Sack]

Hi,
<br>
<br>wie sieht denn dein Code aus?
<br>Ich glaube ich habe dich noch nicht ganz verstanden, oder hilft dir etwa schon das volgende?
<br>
<pre>
procedure TForm1.Button1Click(Sender: TObject);
Var
i : Integer;
begin
For i := 1 to Length(Edit1.Text) do
Edit2.Text := Edit2.Text + edit1.Text[i];
end;
</pre>
<br>mfg
<br>P

[Torsten Wilberg]

Hallo Patrick,

hier der Code:<BR>

while not eof(inifile) do begin<BR>
read(inifile,ch);<BR>
ch:=chr(ord(key) xor ord(ch));<BR>
ed:=ch;<BR>
edi:=ed;<BR>
edit2.text:=edi[i];<BR>
i:=i+1;<BR>
end;<BR>
closefile(inifile);<BR>
Gruß! Torsten
&#10

[Patrick Sack]

Hi,
so könnte es funktionieren (habe den Code nicht getestet). Wenn es nicht laufen sollte bitte nochmal melden.
<pre>
inifile:textfile;
ch,ed:char;
i:integer;
.
.
.
i := 1;
edit2.text := '';
while not eof(inifile) do
begin
read(inifile,ch);
edit2.text := edit2.text + ch;
end;
closefile(inifile);
</pre>
<br>
<br>mfg
<br>p

[Torsten Wilberg]

Hallo Patrick,

vielen Dank für Deine Antwort.
Hatte schon gedacht, ich hätte eine dumme Frage gestellt.
Sorry.
Werde es sofort testen.
Gruß! Torste

[Torsten Wilberg]

Hallo Patrick,

funktioniert! Super!
Wie müßte ich Deinen Code ändern,<BR>
um statt einer Textdatei nun doch ein Editfeld zuverwenden?
Gruß! Torste