hello this is delphi for arab
enjoy your day here
delphi for arab is the best website;'hello this is delphi'
;' for arab enjoy yo'
;'ur day here delph'
;'i for arab is the b'
;'est website'procedure Split20(AMemo: TMemo);
var
i: integer;
tStr, Str, TmpStr: String;
begin
if AMemo.Lines.Count = 0 then
Exit;
TmpStr := '';
tStr := '';
for i := 0 to AMemo.Lines.Count do
begin
Str := TmpStr + AMemo.Lines[i];
TmpStr := Copy(Str, 21, Length(Str)) + ' ';
Str := (Copy(Str, 0, 20));
if i = 0 then
tStr := tStr + Str
else
tStr := tStr + #13#10 + Str;
end;
tStr := tStr + #13#10 + TmpStr;
AMemo.Text := tStr;
end;
Split20(mmo1);
procedure TForm1.Button1Click(Sender: TObject);
begin
SplitText(Memo1, ';');
end;
procedure TForm1.SplitText(AMemo: TMemo; Delimiter: Char);
var
StringList: TStringList;
I: Integer;
begin
StringList := TStringList.Create;
try
StringList.Delimiter := Delimiter;
StringList.DelimitedText := AMemo.Text;
AMemo.Clear;
for I := 0 to StringList.Count - 1 do
AMemo.Lines.Add(StringList[I]);
finally
StringList.Free;
end;
end;
// By SMP3
function SplitStr(const AStr: String; n: integer): string;
var
s, PropStr: PChar;
Len, MemLen, i, D: integer;
c: char;
MemTxt, FTxt, TmpStr: string;
begin
D := 0;
MemTxt := AStr;
Len := Length(MemTxt);
GetMem(PropStr, Len * 2);
MemLen := Len {$IFDEF UNICODE} * 2{$ENDIF};
s := PChar(MemTxt);
for i := 0 to Len {$IFDEF UNICODE} * 2{$ENDIF} do
begin
if s^ <> #$D then
begin
inc(s);
if s^ <> #$A then
begin
dec(s);
PropStr^ := s^;
inc(s);
inc(D);
inc(PropStr);
end
else
begin
inc(D);
inc(s, 2);
PropStr^ := ' ';
inc(PropStr);
end;
end
else
begin
inc(D);
inc(s, 2);
PropStr^ := ' ';
inc(PropStr);
end;
end;
dec(PropStr, D);
MemTxt := PropStr;
Len := 0;
FTxt := '';
TmpStr := '';
while 0 <= Length(MemTxt) - Len do
begin
TmpStr := Copy(PropStr, 0, n);
FTxt := FTxt + TmpStr + #13#10;
inc(PropStr, n);
inc(Len, n);
if PropStr^ = ' ' then
begin
inc(PropStr, +1);
inc(Len, +1);
end;
end;
dec(PropStr, Len);
Len := Length(FTxt);
FTxt[Len - 1] := #0;
FTxt[Len - 2] := #0;
Result := FTxt;
FreeMem(PropStr, MemLen);
end;
Memo2.Text := SplitStr(self.Memo1.Text, 20);
function SplitStr(const AStr: String; n: integer): string;
var
s, PropStr: PChar;
Len, MemLen, i, D: integer;
c: char;
MemTxt, FTxt, TmpStr: string;
begin
D := 0;
MemTxt := AStr;
Len := Length(MemTxt);
[COLOR="Red"] if Len < n then
Result := AStr;[/COLOR]
.....
.....
.....// By SMP3
function SplitStr(const AStr: String; n: integer): string;
var
s, PropStr: PChar;
Len, MemLen, i, D: integer;
c: char;
MemTxt, FTxt, TmpStr: string;
begin
D := 0;
MemTxt := AStr;
Len := Length(MemTxt);
if Len < n then
Result := AStr;
GetMem(PropStr, Len {$IFDEF UNICODE} * 2{$ENDIF});
MemLen := Len {$IFDEF UNICODE} * 2{$ENDIF};
s := PChar(MemTxt);
for i := 0 to Len {$IFDEF UNICODE} * 2{$ENDIF} do
begin
if s^ <> #$D then
begin
inc(s);
if s^ <> #$A then
begin
dec(s);
PropStr^ := s^;
inc(s);
inc(D);
inc(PropStr);
end
else
begin
inc(D);
inc(s, 2);
PropStr^ := ' ';
inc(PropStr);
end;
end
else
begin
inc(D);
inc(s, 2);
PropStr^ := ' ';
inc(PropStr);
end;
end;
dec(PropStr, D);
MemTxt := PropStr;
Len := 0;
FTxt := '';
TmpStr := '';
while 0 <= Length(MemTxt) - Len do
begin
TmpStr := Copy(PropStr, 0, n);
FTxt := FTxt + TmpStr + #13#10;
inc(PropStr, n);
inc(Len, n);
if PropStr^ = ' ' then
begin
inc(PropStr, +1);
inc(Len, +1);
end;
end;
dec(PropStr, Len);
Len := Length(FTxt);
FTxt[Len - 1] := #0;
FTxt[Len - 2] := #0;
Result := FTxt;
FreeMem(PropStr, MemLen{$IFDEF UNICODE} * 2{$ENDIF});
end;