Forum: Object-Pascal / Delphi-Language
Delphi
by 1234588,
13. Apr 2008
ganz einfach. fuege folgende prozedur hinzu:
procedure strrep(const s1, s2: String; memo: TMemo);
begin
memo.Text := StringReplace(Memo.text, s1, s2 , );
end;
dann kannst du dir das sparen:
form1.Memo1.text := stringreplace(form1.Memo1.text, '=', '' , );
denn du kannst diese zeile durch folgendes ersetzen:
Forum: Object-Pascal / Delphi-Language
Delphi
by 1234588,
12. Apr 2008
noch was, was ins auge sticht :)
in deiner 'code' und 'decode' prozedur finde ich vielmals folgende zeilen:
form1.Memo1.text := stringreplace(form1.Memo1.text, '=', '' , );
l;
wie waere es, wenn du eine kleine prozedur schreibst, in der du nur parameter zwei und drei deiner bisherigen string replace funktion uebergibst? von mir aus auch noch dein TMemo objekt
Forum: Object-Pascal / Delphi-Language
Delphi
by 1234588,
12. Apr 2008
ich hab zufaellig was gesehen
begin;
if form1.radiobutton3.checked then
begin
begin < warum?
decode;
l3;
decode;
l3;