Ĺadny brzuch
Jak pobrać np 100 pierwszych znaków z memo?? Proszę o pomoc
var s:string; begin s:=copy(Memo1.Text,1,100);
Użytkownik Cyrkiel edytował ten post 26 grudzień 2006, 14:16
Założmy że w memo jest 80 znaków. Procedura pobiera 100 znaków. 20 zostaje pustych. Jak je zapełnić do 100 określonymi znakakmi??
setlength(s,100);jeśli chcesz je wypełnić spacjami:var s:string; b:pchar; x:integer; begin x:=80; setlength(s,100); b:=pchar(s)+x; fillchar(b^,100-x,32);80 przy x oznacza ilość wczytanych z memo znaków
Użytkownik Cyrkiel edytował ten post 26 grudzień 2006, 15:19
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var s:string; begin s:=copy(Memo1.Text,1,100);
Użytkownik Cyrkiel edytował ten post 26 grudzień 2006, 14:16
Założmy że w memo jest 80 znaków. Procedura pobiera 100 znaków. 20 zostaje pustych. Jak je zapełnić do 100 określonymi znakakmi??
setlength(s,100);jeśli chcesz je wypełnić spacjami:var s:string; b:pchar; x:integer; begin x:=80; setlength(s,100); b:=pchar(s)+x; fillchar(b^,100-x,32);80 przy x oznacza ilość wczytanych z memo znaków
Użytkownik Cyrkiel edytował ten post 26 grudzień 2006, 15:19