Het opslaan in een DB doe ik als volgend,
tPhotoAlbum is Tablenaam.
odBlob is een topendialog/topenpicturedialog.
procedure TfrmMain.btLoadImageClick(Sender: TObject);
var
FileStream:...
Type: Posts; User: coja; Keyword(s):
Het opslaan in een DB doe ik als volgend,
tPhotoAlbum is Tablenaam.
odBlob is een topendialog/topenpicturedialog.
procedure TfrmMain.btLoadImageClick(Sender: TObject);
var
FileStream:...
Hallo,
Ik heb een database van acces met daarin de velden palletsperuur en checkdate.
Palletsperuur is een integer veld en checkdate is een boolean veld.
palletsperuur checkdate
5 ...
Deze werkt perfect. Mijn dank is groot.
Wat gaat er fout met deze code.
procedure TInvoerform.autotellen;
var
T1: string;
T2: string;
M: integer;
FS : TFormatSettings;
begin
GetLocaleFormatSettings(1043, FS); // 1043 is...
Thanks Je hebt gelijk ik was verkeerd begonnen. Naderhand zijn het calculated field geworden dus daar ging ik de fout in. Maar jou code werkt perfect.
Bedankt voor het meedenken.
Ik stuur een demo even mee dit is niet het werkelijke programma. Het is een exe bestandje met source code. Kopie de text van de edit in de memo en druk op enter.
De tabel een mdb zit er bij.
De...
Hi,
Select sum(Manuren2P) as groen from Data where DagenOpen <= '5' geeft als waarde 124.07 terug.
Select DagenOpen, sum(Manuren2P) as groen from Data where (DagenOpen) <='5' group by DagenOpen...
Hallo, ik heb een AdoQuery met als SQL opdracht:
( Select sum(Manuren2P) as groen from Data where DagenOpen <= '5' group by DagenOpen )
7140
De tabel namen zijn op de foto bovenin te zien behalve...
Iedereen bedankt voor het meedenken.
Deze geeft een foutmelding format %5.2f invalid or incompatible with argument.
Dit is hem alleen 1 haakje teveel
totaal.text:=FloatToStrF(StrToFloat(Serie1.text)/StrToFloat(serie2.text)/2,ffFixed,5,2);
Thanks
Helaas krijg ik ook dit niet voor elkaar. Zodra ik weer round toespas moet ik strtoint toepassen waaardoor de uitkomst 0 is.
Bedankt voor het meedenken.
serie1.text:= 5;
serie2.text:=15;
totaal.text:=FloatToStr((StrToFloat(serie1.Text) / StrToFloat(serie2.Text) / 2));
Uitkomst nu van totaal.text:= 0,166666666666667;
Deze wil ik afronden naar...
Okee thanks ik zal eens kijken of ik dat met trunc kan oplossen nog niet met trunc gewerkt. Ga het even opzoeken.
Ik kijk niet verder dan naar de minuten. Ik geef bv deze waarde 09.00 tot 11.30
in een stimepicker van alphatools
En dan kan het toch voorkomen dat er 1 minuut verschil in kan zitten.
Hallo,
Ik heb de code met minutesbetween gebruikt maar kom hier inderdaad achter dat als je twee keer de dezelfde waarde invoerd er soms 1 minuut verschil in zit. Dat zou dus kunnen betekenen dat...
Allemaal bedankt voor jullie reactie. Het werkt nu naar behoren tot de volgende keer.
Groetjes
Coja
Hallo,
Ik heb een begintijd en een eindtijd op mijn form staan.
Begintijd is bv 09:00 en de eindtijd is 11:30
Tussentijd is dan eindtijd - begintijd
Dat is 2 uur en 30 min.
Ik wil alleen...
Allereerst bedankt voor jullie reactie en ja daar was ik ook achter gekomen had dus het integerfield een DisplayFormat mee gegeven zodat dit geen probleem geeft in mijn database.
Ja je hebt gelijk ik haal de klantnummer op als een integer tel er 1 bij op en sla deze op als een string.
Dit is de code die werkt bij mij.
var
klantnum:integer;
d,s,f : string;
begin
...
Thanks voor je reactie maar heb het opgelost.
Achteraf toch simpel.
Oplossing :
Klantnum: = 1;
s := FormatDateTime('yyyymmdd', strtodate(d)) + '-' + Format('%.3d', [klantnum]);
Uitkomst =...
Hallo ik heb overal al gezocht maar iedereen wil er de nullen voor een cijfer eraf maar ik wil die erbij bv.
Mijn klantnr begint dus met 1 maar ik wil dit als 001 zodat er een nieuwe aangemaakt...
Hallo,
Hier heb ik de code voor het optellen van de subitems in een listview zie onderstaande code
procedure TForm1.tellingscore;
var
Index: integer;
Som: integer;
begin
Som := 0;
...
Okee heb het zo opgelost
function controleer1(kleur1, kleur2 : TColor; controle : boolean; const waarde : smallint) : string;
begin
if controle then
begin
if (kleur1 = clgreen) or...
Ik wil deze gebruiken van je omdat ik zelf aan kan geven welke getal ik kan invoeren.
Alleen als ik Pak1theorie1.color de kleur clmaroon geef en Pak1praktijk2.color de kleur clgreen en...