Kod: Tümünü seç
1
00:00:08,570 --> 00:00:11,090
Her yerde oynar
2
00:00:12,330 --> 00:00:14,230
Ve her zaman
3
00:00:14,650 --> 00:00:17,500
Bulutta barındırılan
4
00:00:17,800 --> 00:00:20,650
Her zaman güncel
5
00:00:21,550 --> 00:00:24,400
İzleyiciler için büyük bir deneyim oluşturmak
6
00:00:25,400 --> 00:00:27,800
Analitik aracılığıyla izleyici istatistikleri
7
00:00:28,500 --> 00:00:30,350
Video için yerleşik reklam teknolojisi
8
00:00:35,500 --> 00:00:37,880
Video için tutku ile oluşturulan
Kod: Tümünü seç
unit SubApi;
interface
uses
System.SysUtils;
type
TInfo = Record
StartTime: string;
EndTime: string;
Text: string;
end;
type
TSubObject = class (TObject)
private
function GetItems(Index: Integer): TInfo;
public
Source: string;
function GetCount: Integer;
property Items[Index: Integer]: TInfo read GetItems;
end;
implementation
{ TSubObject }
function TSubObject.GetCount: Integer;
var
I: Integer;
begin
I := 0;
while Pos('-->', Source) > 0 do
begin
inc(I);
Delete(Source, 1, Pos('-->', Source));
end;
Result := I;
end;
function TSubObject.GetItems(Index: Integer): TInfo;
var
Info: TInfo;
begin
Info.StartTime := '';
Info.EndTime := '';
Info.Text := '';
Result := Info;
end;
end.
Kod: Tümünü seç
procedure TMain.Button1Click(Sender: TObject);
var
Sub: TSubObject; // uses SubApi
begin
Sub := TSubObject.Create;
Sub.Source := Memo1.Text;
ShowMessage(Sub.Items[1].Text); // Burda index verilenin bilgisin almak
end;