Das ist schön!
Und wie weit bist du schon?
Ich habe bisher noch nicht Anfangen. Mache ich vielleicht heute(gleich noch) mal sehen.
Du meinst ein SVN würde sich bei zwei "Entwicklern" lohnen ?
Das ist schön!
Und wie weit bist du schon?
Code: Alles auswählen
function myFormat(const Fmt : string; const args : array of const):string;
var
x:Integer;
begin
for x:=0 to Length(args)-1 do begin
case args[x].VType of
vtAnsiString: begin
writeln(String(args[x].VAnsiString));
end;
vtInteger: begin
writeln(args[x].VInteger);
end;
end; // case
end; // for x
end; // myFormat
{ TForm1 }
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
writeln(myFormat('Test:',['halöäülo',333]));
//
end;
Code: Alles auswählen
function myFormat(const Fmt : string; const args : array of const):string;
var
x,c,p1,p2,i:Integer;
ch:Char;
str1, str2, str3:String;
begin
c:=Length(args)-1; p1:=Pos('%',fmt); x:=p1+1; i:=0;
str1:=Copy(Fmt, 1, p1-1); str2:=str1;
while i <= c do begin
ch:=Fmt[x];
case ch of
'V': begin
str2:=str2+String(args[i].VAnsiString);
inc(i);
end;
'N': begin
str2:=str2+String(args[i].VAnsiString);
inc(i);
end;
'A': begin
str2:=str2+IntTostr(args[i].VInteger);
inc(i);
end;
end; // case
// inc(i);
p2:=PosEx('%',FMT, x)+1;
str1:=Copy(Fmt, x+1, abs(p2-x)-2);
x:=p2;
str2:=str2+str1;
end; // while x
result:=str2;
end; // myFormat
{ TForm1 }
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
writeln(myFormat('Mein Vornamename ist %V, Mein Nachname ist: %N, Ich bin %A Jahre alt ',[Edit2.Text, Edit3.Text, SpinEdit1.Value]));
end;
Eine Property die einem sagt ob momentan was abgespielt wird.
pluto hat geschrieben:Das sollte es "eigentlich" schon geben... Status oder so ähnlich. Das sagt ob gerade gespielt wird, oder pausiert ist.
[FORMS.PP] ExceptionOccurred
Sender=EInvalidOp
Exception=Invalid floating point operation
Stack trace:
$B5EB167F
TApplication.HandleException Invalid floating point operation
Stack trace:
$B5EB167F
(project1:19839): Gtk-CRITICAL **: gtk_style_detach: assertion `style->attach_count > 0' failed
[FORMS.PP] ExceptionOccurred
[FORMS.PP] ExceptionOccurred
[FORMS.PP] ExceptionOccurred
/home/Michael/lazarus-0.9.27.src/lazarusc//tools/runwait.sh: line 17: 19839 Speicherzugriffsfehler $CommandLine
--------------------------------------------------
Press enter
Ich bin aber zuversichtlich.
das erste Frame bekomme ich schon angezeigt...
Code: Alles auswählen
procedure TMyThread.test;
begin
//...
xine.Open('/home/peter/Videos/Beverly_Hills_Cop_avi.flv');
end;
//...
repeat
Synchronize(@Test);
until (Terminated) or (Suspended);
Suspend;
end;