Lorem Ipsum, dizgi ve baskı endüstrisinde kullanılan mıgır metinlerdir. Lorem Ipsum, adı bilinmeyen bir matbaacının bir hurufat numune kitabı oluşturmak üzere bir yazı galerisini alarak karıştırdığı 1500'lerden beri endüstri standardı sahte metinler olarak kullanılmıştır. Beşyüz yıl boyunca varlığını sürdürmekle kalmamış, aynı zamanda pek değişmeden elektronik dizgiye de sıçramıştır. 1960'larda Lorem Ipsum pasajları da içeren Letraset yapraklarının yayınlanması ile ve yakın zamanda Aldus PageMaker gibi Lorem Ipsum sürümleri içeren masaüstü yayıncılık yazılımları ile popüler olmuştur.
Ben metni Google TTS Api vasıtasıyla okutmak istiyorum. Apiyle tüm metni okutmak direk okumuyo hata veriyo. Bende metini ayırmak istiyom ayırdıkça okutacağım. Normal Pos ile metini ayıra bilirim amma ben , . ! dikate alarak ayırmasını istiyorum. Bunu nasıl yapa bilirim?
procedure SetTag(Source: string; SL: TStringList);
var
A, B: Integer;
S, Temp: string;
ST: IStringTokenizer; // uses HTTPUtil;
I: Integer;
begin
B := Length(Trim(Source));
for A := 1 to B do
begin
S := Copy(Trim(Source), A, 1);
if S = '!' then
begin
Temp := Temp + S + '^';
end else
if S = '?' then
begin
Temp := Temp + S + '^';
end else
if S = '.' then
begin
Temp := Temp + S + '^';
end else
if S = ',' then
begin
Temp := Temp + S + '^';
end else
begin
Temp := Temp + S;
end;
end;
ST := StringTokenizer(Temp, '^');
for I := 0 to ST.countTokens - 1 do
begin
SL.Add(Trim(ST.nextToken));
end;
end;
Kullanımı:
var
I: Integer;
SL: TStringList;
begin
SL := TStringList.Create;
SetTag(Text, SL);
for I := 0 to SL.Count - 1 do
begin
ShowMessage(SL[I]);
end;
