Anonymní profil pavel – Programujte.com

Díky moc, muj problem visel jen na tomto prikazu:
s1 := s1+s[i];

Jsem zacatecnik,prosim o radu, jak v Delphi smazat v retezci vsechna nevyhovujici pismena a ty co chci ulozit bez mezer zpet do retezce.

begin
r1:=Memo1.Lines.Text;
N:=length(r1);
SetLength(r2,N);

for i:=1 to N do begin
if (r1[i] = 'a') or (r1[i] = 'c') or (r1[i] = 'g') or (r1[i] = 't')
or (r1[i] = 'A') or (r1[i] = 'C') or (r1[i] = 'G') or (r1[i] = 'T')
then r2[i]:=r1[i];
Memo3.Lines.Text:=r2;
end;

tohle me ovsem nefunguje a misto pismen co tam nechci se me tam dopisi jeste jine znaky.
Dekuji za pomoc.

Dobrý den, jsem začátečník a potřeboval bych poradit, jak v Delphi načíst např text z Mema jednoho formuláře do Mema na dalším formuláři. Formulář jsem si dopsal do sekce uses.
Logicky bych to delal takhle ale nefunguje to:-(

procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo1.Lines:=Temata.Memo1.Lines; //Temata je nazev predchoziho formulare
end;

To Honzc : Děkuji mooc, funguje to!!!

Dobrý den, vytvářím si jednoduchou hru-šibenici. Žádám Vás o radu, slova načítám z textového souboru a samozřejmě potřebuji aby se pokaždé načetlo jiné slovo, nevím jak toho dosáhnout,nebo jak to indexovat,pokaždé mi to napíše chybu. Zkoušel jsem Randomem vygenerovat číslo,dát je do proměné a pomocí ní indexovat ale to mě též nešlo. Prosím poradte
...
AssignFile(f,'C:\...sporty.txt');
reset (f);
while not (eoln(f)) do begin Readln (f,slovo);
end;
Label3.Caption:=vypis;
CloseFile(f);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
Button3.top:=Button3.top+405;
pismeno:='a';
nasel:=0;
for n:=1 to 8 do
if pismeno=slovo[n] then begin
vypis[n]:=pismeno;
nasel:=1;
end;
...
Dále ještě prosím o radu,jakým příkazem (např.při stisku tlačítka) se dá obnovit formulář,jako aby to bylo jako na začátku při spuštění. Předem děkuji. T